1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb
index c638c5616..1d87df365 100644
--- a/src/synth/synth-context.adb
+++ b/src/synth/synth-context.adb
@@ -121,7 +121,7 @@ package body Synth.Context is
                end if;
             end;
          when others =>
-            raise Internal_Error;
+            Error_Kind ("alloc_object", Obj_Type);
       end case;
    end Alloc_Object;