1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb
index 4866b112b..e512b948a 100644
--- a/src/synth/synth-decls.adb
+++ b/src/synth/synth-decls.adb
@@ -55,7 +55,7 @@ package body Synth.Decls is
             else
                Value := Build_Signal (Build_Context, Name, W);
             end if;
-            Wire_Id_Table.Table (Val.W).Gate := Value;
+            Set_Wire_Gate (Val.W, Value);
          when others =>
             raise Internal_Error;
       end case;