Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 4901)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 4902)
@@ -1181,5 +1181,4 @@
 
 
-;(defvar puke nil)
 
 (defun %require-type-class-cell (arg class-cell)
@@ -2108,4 +2107,6 @@
         (setf (%svref v target::subtag-istruct)
               #'(lambda (i) (or (find-class (%svref i 0) nil) *istruct-class*)))
+        (setf (%svref v target::subtag-basic-stream)
+              #'(lambda (b) (basic-stream.class b)))
         (setf (%svref v target::subtag-instance)
               #'%class-of-instance)