===================================================================
RCS file: /home/cvs/OpenXM_contrib/gc/Attic/gc_mark.h,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.2
diff -u -p -r1.1.1.1 -r1.1.1.2
--- OpenXM_contrib/gc/Attic/gc_mark.h	1999/11/27 10:58:32	1.1.1.1
+++ OpenXM_contrib/gc/Attic/gc_mark.h	2000/04/14 11:08:00	1.1.1.2
@@ -171,6 +171,8 @@ mse * GC_signal_mark_stack_overflow();
 	      /* Mark bit is already set */ \
 	      goto exit_label; \
         } \
+        GC_STORE_BACK_PTR((ptr_t)source, (ptr_t)HBLKPTR(current) \
+				      + WORDS_TO_BYTES(displ)); \
         *mark_word_addr = mark_word | mark_bit; \
     } \
     PUSH_OBJ(((word *)(HBLKPTR(current)) + displ), hhdr, \