diff --git a/src/svalue.c b/src/svalue.c
index 962b50f556fa1305c5f0404de5afda2e8590ba1e..4340b171c52bbbe3d3528f8e020c6cc649efb8d6 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -23,7 +23,7 @@
 #include "queue.h"
 #include "bignum.h"
 
-RCSID("$Id: svalue.c,v 1.65 2000/04/08 02:01:09 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.66 2000/04/12 10:39:24 grubba Exp $");
 
 struct svalue dest_ob_zero = { T_INT, 0 };
 
@@ -1334,7 +1334,7 @@ void real_gc_check_short_svalue(union anything *u, TYPE_T type)
 #endif
 }
 
-void gc_mark_svalues(struct svalue *s, int num)
+void debug_gc_mark_svalues(struct svalue *s, int num)
 {
   INT32 e;
   for(e=0;e<num;e++,s++)
@@ -1381,7 +1381,7 @@ void gc_mark_svalues(struct svalue *s, int num)
   }
 }
 
-void gc_mark_short_svalue(union anything *u, TYPE_T type)
+void debug_gc_mark_short_svalue(union anything *u, TYPE_T type)
 {
   switch(type)
   {
diff --git a/src/svalue.h b/src/svalue.h
index d2d314c88f7102a2d3d4cb90edfbafdc35e742df..6af8292baa64fea547a7e52f83b52a7f270e85cb 100644
--- a/src/svalue.h
+++ b/src/svalue.h
@@ -5,7 +5,7 @@
 \*/
 
 /*
- * $Id: svalue.h,v 1.49 2000/04/08 02:01:09 hubbe Exp $
+ * $Id: svalue.h,v 1.50 2000/04/12 10:39:09 grubba Exp $
  */
 #ifndef SVALUE_H
 #define SVALUE_H
@@ -338,11 +338,14 @@ void check_svalue(struct svalue *s);
 TYPE_FIELD real_gc_check_svalues(struct svalue *s, int num);
 void real_gc_xmark_svalues(struct svalue *s, int num);
 void real_gc_check_short_svalue(union anything *u, TYPE_T type);
-void gc_mark_svalues(struct svalue *s, int num);
-void gc_mark_short_svalue(union anything *u, TYPE_T type);
+void debug_gc_mark_svalues(struct svalue *s, int num);
+void debug_gc_mark_short_svalue(union anything *u, TYPE_T type);
 INT32 pike_sizeof(struct svalue *s);
 /* Prototypes end here */
 
+#define gc_mark_svalues(S,N)	debug_gc_mark_svalues(debug_malloc_pass(S),N)
+#define gc_mark_short_svalue(U,N)	debug_gc_mark_short_svalue(debug_malloc_pass(U),N)
+
 #ifndef NO_PIKE_SHORTHAND
 
 #define T_ARRAY    PIKE_T_ARRAY