Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 13365)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 13366)
@@ -2474,5 +2474,5 @@
       (if (eq b :eof)
 	(return (- i start)))
-      (setf (uvref vector i) b)
+      (setf (aref vector i) b)
       (incf i)
       (decf need)