Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 13469)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 13470)
@@ -245,7 +245,7 @@
       (error "~s is not an ivector subtype." element-type))
     (let* ((size-in-octets (ccl::subtag-bytes subtag element-count)))
-      (multiple-value-bind (pointer vector)
+      (multiple-value-bind (vector pointer)
           (ccl::%make-heap-ivector subtag size-in-octets element-count)
-        (values pointer vector size-in-octets)))))
+        (values vector pointer size-in-octets)))))