Index: /branches/working-0711/ccl/lib/macros.lisp
===================================================================
--- /branches/working-0711/ccl/lib/macros.lisp	(revision 12956)
+++ /branches/working-0711/ccl/lib/macros.lisp	(revision 12957)
@@ -2592,5 +2592,5 @@
           (setq woi (cadr args) args (cddr args))
           (if (eq (car args) :discard-stack-args)
-            (setq discard-stack-args t args (cdr args))
+            (setq discard-stack-args (eq (backend-target-os *target-backend*) :win32) args (cdr args))
             (if (eq (car args) :error-return)
               (setq error-return