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