diff --git a/ldb/gc.c b/ldb/gc.c
index ec35fbccc328c34b70e4c1d236d3cc58efe766ec..a5d6145bb2a97e0a1beed8aa1a03d2afc5d40657 100644
--- a/ldb/gc.c
+++ b/ldb/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.12 1990/09/21 06:01:57 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.13 1990/09/26 15:11:32 wlott Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -1023,7 +1023,7 @@ scav_symbol(where, object)
 lispobj *where, object;
 {
     struct symbol *symbol;
-#define RAW_ADDR_OFFSET (sizeof(struct function_header)-1-type_FunctionHeader)
+#define RAW_ADDR_OFFSET (6*sizeof(lispobj) - type_FunctionPointer)
 
     symbol = (struct symbol *)where;