Index: /trunk/ccl/compiler/optimizers.lisp
===================================================================
--- /trunk/ccl/compiler/optimizers.lisp	(revision 589)
+++ /trunk/ccl/compiler/optimizers.lisp	(revision 590)
@@ -628,5 +628,5 @@
 
     `(let ,let-list
-       (%make-displaced-array ,dims-var ,@call-list))))
+       (%make-displaced-array ,dims-var ,@call-list) t)))
 
 (defun comp-make-uarray (dims keys subtype)