--- dialog.lisp.~1.19.~	2005-08-19 21:45:32.900848400 +0200
+++ dialog.lisp	2005-08-19 21:52:57.551251264 +0200
@@ -170,9 +170,9 @@
                                        #',accepting-values-continuation
                                        ,@args))
             ))
-      (if own-window
-          `(with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
-          return-form))))
+      `(if  ,own-window
+            (with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
+           ,return-form))))
 
 (defun invoke-accepting-values
     (stream body