Index: /trunk/source/level-1/l1-error-system.lisp
===================================================================
--- /trunk/source/level-1/l1-error-system.lisp	(revision 15017)
+++ /trunk/source/level-1/l1-error-system.lisp	(revision 15018)
@@ -670,6 +670,7 @@
 	     (throw tag (values nil t)))))))
 
-(defun invoke-restart-no-return (restart)
-  (invoke-restart restart)
+(defun invoke-restart-no-return (restart &rest values)
+  (declare (dynamic-extent values))
+  (apply #'invoke-restart restart values)
   (error 'restart-failure :restart restart))