diff --git a/ldb/gc.c b/ldb/gc.c
index d8a4da8e171df00a0e665192fb131b1f6bdd07ae..8283789bf29e0001532cb9b8de3e4b1f0c4c9c20 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.23 1990/12/18 23:26:27 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.24 1991/01/28 09:21:55 wlott Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -333,7 +333,7 @@ long nwords;
                         lispobj first_word;
 
                         first_word = *((lispobj *)PTR(object));
-                        if (new_space_p(first_word)) {
+                        if (Pointerp(first_word) && new_space_p(first_word)) {
                             /* Yep, there be a forwarding pointer. */
                             *start = first_word;
                             words_scavenged = 1;