diff --git a/ldb/gc.c b/ldb/gc.c
index 046851a139a6c2b11c76d9f0c1a54767e2eacf2c..4a92c5ebebed41bd424d5ba0da262adb900f43ad 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.30 1991/10/22 18:37:56 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.31 1991/11/10 22:32:46 wlott Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -1790,7 +1790,7 @@ gc_init()
 #else
         scavtab[type_SymbolHeader] = scav_boxed;
 #endif
-	scavtab[type_BaseCharacter] = scav_immediate;
+	scavtab[type_BaseChar] = scav_immediate;
 	scavtab[type_Sap] = scav_unboxed;
 	scavtab[type_UnboundMarker] = scav_immediate;
 	scavtab[type_WeakPointer] = scav_weak_pointer;
@@ -1829,7 +1829,7 @@ gc_init()
 	transother[type_FuncallableInstanceHeader] = trans_boxed;
 	transother[type_ValueCellHeader] = trans_boxed;
 	transother[type_SymbolHeader] = trans_boxed;
-	transother[type_BaseCharacter] = trans_immediate;
+	transother[type_BaseChar] = trans_immediate;
 	transother[type_Sap] = trans_unboxed;
 	transother[type_UnboundMarker] = trans_immediate;
 	transother[type_WeakPointer] = trans_weak_pointer;
@@ -1882,7 +1882,7 @@ gc_init()
 	sizetab[type_FuncallableInstanceHeader] = size_boxed;
 	sizetab[type_ValueCellHeader] = size_boxed;
 	sizetab[type_SymbolHeader] = size_boxed;
-	sizetab[type_BaseCharacter] = size_immediate;
+	sizetab[type_BaseChar] = size_immediate;
 	sizetab[type_Sap] = size_unboxed;
 	sizetab[type_UnboundMarker] = size_immediate;
 	sizetab[type_WeakPointer] = size_weak_pointer;
diff --git a/ldb/print.c b/ldb/print.c
index dadf98ff2cb2c91159305e03ca892f1e2e94c837..92efcf312c1ba1d0e21fb89fc8a0c2bb87102ec0 100644
--- a/ldb/print.c
+++ b/ldb/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.15 1990/12/18 23:25:34 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.16 1991/11/10 22:32:59 wlott Exp $ */
 #include <stdio.h>
 
 #include "ldb.h"
@@ -142,7 +142,7 @@ lispobj obj;
 
     type = TypeOf(obj);
     switch (type) {
-        case type_BaseCharacter:
+        case type_BaseChar:
             c = (obj>>8)&0xff;
             switch (c) {
                 case '\0':
@@ -200,7 +200,7 @@ lispobj obj;
 	    printf(", unknown type (0x%0x)", type);
 
     switch (TypeOf(obj)) {
-        case type_BaseCharacter:
+        case type_BaseChar:
             printf(": ");
             brief_otherimm(obj);
             break;
@@ -480,7 +480,7 @@ lispobj obj;
 		print_slots(weak_pointer_slots, 1, ptr);
                 break;
 
-            case type_BaseCharacter:
+            case type_BaseChar:
             case type_UnboundMarker:
                 NEWLINE;
                 printf("pointer to an immediate?");