Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 466)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 467)
@@ -495,5 +495,5 @@
       (cond ((null fn)                  ; simple restart
              (unless (null values) (%err-disp $xtminps))
-             (throw tag (values nil T)))
+             (throw tag nil))
             ((fixnump fn)               ; restart case
              (throw tag (cons fn values)))