Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 13455)
+++ /trunk/source/lib/macros.lisp	(revision 13456)
@@ -1489,12 +1489,12 @@
     (multiple-value-bind (forms decls) (parse-body body env nil)
       `(let* ((,var ,@(if string-p
-                          `((,@(if element-type-p
+                          `(,@(if element-type-p
                                    `((progn
                                        ,element-type
                                        (%make-string-output-stream ,string)))
-                                   `((%make-string-output-stream ,string)))))
-                          `((,@(if element-type-p
+                                   `((%make-string-output-stream ,string))))
+                          `(,@(if element-type-p
                                    `((make-string-output-stream :element-type ,element-type))
-                                   `((make-string-output-stream))))))))
+                                   `((make-string-output-stream)))))))
         ,@decls
         (unwind-protect
@@ -1510,6 +1510,6 @@
     (multiple-value-bind (forms decls) (parse-body body env nil)
       `(let* ((,var ,@(if vector-p
-                          `((%make-vector-output-stream ,vector ,external-format))
-                          `((make-vector-output-stream :external-format ,external-format)))))
+                          `(%make-vector-output-stream ,vector ,external-format)
+                          `(make-vector-output-stream :external-format ,external-format))))
          ,@decls
          (unwind-protect