diff --git a/pcl/combin.lisp b/pcl/combin.lisp
index a904e97b56bb33af52f361a8a8fc72191967be02..3af8b49c29214d61cd12d34f9b526650318f672e 100644
--- a/pcl/combin.lisp
+++ b/pcl/combin.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.23 2004/04/02 15:24:02 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.24 2005/06/06 14:32:23 rtoy Exp $")
 
 (in-package "PCL")
 
@@ -178,7 +178,10 @@
 
 (defmacro call-method (&rest args)
   (declare (ignore args))
-  `(error "~@<~S used outsize of a effective method form.~@:>" 'call-method))
+  ;;
+  ;; Hack: The PROGN is here so that RESTART-CASE doesn't see the
+  ;; ERROR.  See MUNGE-RESTART-CASE-EXPRESSION in code:error.lisp.
+  `(progn (error "~@<~S used outsize of a effective method form.~@:>" 'call-method)))
 
 (defmacro call-method-list (&rest calls)
   `(progn ,@calls))