Index: /trunk/ccl/level-1/l1-boot-2.lisp
===================================================================
--- /trunk/ccl/level-1/l1-boot-2.lisp	(revision 5289)
+++ /trunk/ccl/level-1/l1-boot-2.lisp	(revision 5290)
@@ -73,4 +73,15 @@
 (defvar *stdout* ())
 (defvar *stderr* ())
+
+
+(defun set-basic-stream-prototype (class)
+  (when (subtypep class 'basic-stream)
+    (setf (%class.prototype class) (or (%class.prototype class)
+                                       (allocate-basic-stream class)))
+    (dolist (subclass (class-direct-subclasses class))
+      (set-basic-stream-prototype subclass))))
+
+(set-basic-stream-prototype (find-class 'basic-stream))
+
 
 ;;; The hard parts here have to do with setting up *TERMINAL-IO*.