diff --git a/src/object.c b/src/object.c
index 7e3f37f2771c71847d35de904d7d680679b57daf..88d1fc915ade6e0cc43ef62676a22e2106a00537 100644
--- a/src/object.c
+++ b/src/object.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: object.c,v 1.82 1999/09/18 09:21:23 hubbe Exp $");
+RCSID("$Id: object.c,v 1.83 1999/09/28 22:00:20 hubbe Exp $");
 #include "object.h"
 #include "dynamic_buffer.h"
 #include "interpret.h"
@@ -201,6 +201,7 @@ struct object *debug_clone_object(struct program *p, int args)
   SET_ONERROR(tmp, do_free_object, o);
   debug_malloc_touch(o);
   call_c_initializers(o);
+  debug_malloc_touch(o);
   call_pike_initializers(o,args);
   UNSET_ONERROR(tmp);
   return o;