Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 577)
+++ /trunk/ccl/lib/macros.lisp	(revision 578)
@@ -424,5 +424,5 @@
       (setq format-string `#'(lambda (,stream) (format ,stream ,format-string ,@format-args)))))
   `(let* ((,temp (%cons-restart ',restart-name
-                                #'(lambda () (values nil t))
+                                'simple-restart
                                 ,format-string
                                 nil