Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 912)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 913)
@@ -1184,5 +1184,5 @@
                t))
             ((and print-array (and (eq (array-element-type array) t)
-                                   (not fill-pointer?)(not adjustable?)))
+                                   (not fill-pointer?)))
              (let ((rank (array-rank array)))
                (stream-write-char stream #\#)