diff --git a/ldb/gc.c b/ldb/gc.c
index 0583733de0bfb7f873456248b48037d65e6fe084..0e9f6dbdd99b348b889c0500fa1a457f3a1fc63a 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.2 1990/03/29 21:18:11 ch Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.3 1990/04/02 00:30:22 ch Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -516,8 +516,6 @@ struct code *code;
 	unsigned long displacement;
 	lispobj fheaderl, *prev_pointer;
 
-	gc_assert(TypeOf(code->header) == type_CodeHeader);
-
 #if defined(DEBUG_CODE_GC)
 	printf("\nTransporting code object located at 0x%08x.\n",
 	       (unsigned long) code);
@@ -528,6 +526,8 @@ struct code *code;
 	if (pointerp(first) && new_space_p(first))
 		return (struct code *) PTR(first);
 	
+	gc_assert(TypeOf(first) == type_CodeHeader);
+
 	/* prepare to transport the code vector */
 	l_code = (lispobj) code | type_OtherPointer;