Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5778)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5779)
@@ -1797,8 +1797,8 @@
             (find-class 'long-vector)
             (find-class 'fixnum-vector)
-            *t-class*                   ;(find-class 'new-base-string)
+            (find-class 'base-string)
             (find-class 'unsigned-byte-vector)
             (find-class 'byte-vector)
-            (find-class 'base-string)
+            *t-class*                   ; old base-string
             (find-class 'unsigned-word-vector)
             (find-class 'word-vector)
@@ -1830,5 +1830,5 @@
             (find-class 'base-string)
             *t-class*
-            *t-class*
+            (find-class 'base-string)
             *t-class*
             *t-class*