1 files changed, 2 insertions, 2 deletions
diff --git a/struct.c b/struct.c
index 8c104d08..5f614af2 100644
--- a/struct.c
+++ b/struct.c
@@ -406,7 +406,7 @@ val struct_get_initfun(val type)
 val struct_set_initfun(val type, val fun)
 {
   struct struct_type *st = stype_handle(&type, lit("struct-set-initfun"));
-  st->initfun = fun;
+  set(mkloc(st->initfun, type), fun);
   return fun;
 }
 
@@ -419,7 +419,7 @@ val struct_get_postinitfun(val type)
 val struct_set_postinitfun(val type, val fun)
 {
   struct struct_type *st = stype_handle(&type, lit("struct-set-postinitfun"));
-  st->postinitfun = fun;
+  set(mkloc(st->postinitfun, type),  fun);
   return fun;
 }