diff --git a/src/gc.c b/src/gc.c
index 0d0e6508a956bc1ba33f0f94fe5eaf3194ba8a9a..4591bc22f4cb3cdc4c8706fcaa3b5007aa4e7832 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: gc.c,v 1.221 2003/07/16 14:10:12 mast Exp $
+|| $Id: gc.c,v 1.222 2003/08/01 22:46:06 mast Exp $
 */
 
 #include "global.h"
@@ -33,7 +33,7 @@ struct callback *gc_evaluator_callback=0;
 
 #include "block_alloc.h"
 
-RCSID("$Id: gc.c,v 1.221 2003/07/16 14:10:12 mast Exp $");
+RCSID("$Id: gc.c,v 1.222 2003/08/01 22:46:06 mast Exp $");
 
 int gc_enabled = 1;
 
@@ -830,7 +830,7 @@ again:
       {
 	fprintf(stderr,"%*s**Parent identifier: %d\n",indent,"",PARENT_INFO( ((struct object *)a) )->parent_identifier);
       }
-      fprintf(stderr,"%*s**Program id: %ld\n",indent,"",((struct object *)a)->program_id);
+      fprintf(stderr,"%*s**Program id: %d\n",indent,"",((struct object *)a)->program_id);
 
       if (((struct object *)a)->next == ((struct object *)a))
 	fprintf(stderr, "%*s**The object is fake.\n",indent,"");
@@ -890,6 +890,10 @@ again:
 	fprintf(stderr,"%*s**The program was written in C.\n",indent,"");
       }
 
+#if 0
+      dump_program_tables (p, indent + 2);
+#endif
+
       tmp = low_get_program_line_plain(p, &line, 1);
       if (tmp) {
 	fprintf(stderr,"%*s**Location: %s:%ld\n",
diff --git a/src/object.h b/src/object.h
index 654c8cc6819548dd2cd76c0a9e7536e3e4243931..9f082b260639aee18ad2b5e3b8c403e4fdfbe35a 100644
--- a/src/object.h
+++ b/src/object.h
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: object.h,v 1.79 2003/06/30 17:06:09 mast Exp $
+|| $Id: object.h,v 1.80 2003/08/01 22:46:06 mast Exp $
 */
 
 #ifndef OBJECT_H
@@ -23,7 +23,7 @@ struct object
   struct object *next;
   struct object *prev;
 #if PIKE_DEBUG
-  long program_id;
+  INT32 program_id;
 #endif
   char *storage;
 };