Index: /branches/working-0711/ccl/compiler/optimizers.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 9470)
+++ /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 9471)
@@ -1940,5 +1940,5 @@
                `(let ((,stream-var ,stream))
                   (if (or (null ,stream-var) (stringp ,stream-var))
-                    (format-to-string stream-var ,string ,obj ,@args)
+                    (format-to-string ,stream-var ,string ,obj ,@args)
                     (progn
                       (when (eq ,stream-var t) (setq ,stream-var *standard-output*))