diff --git a/pcl/combin.lisp b/pcl/combin.lisp
index 512916f856b639b8c9a9caa6241e8499d1e61122..a904e97b56bb33af52f361a8a8fc72191967be02 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.22 2004/03/29 23:39:38 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/combin.lisp,v 1.23 2004/04/02 15:24:02 rtoy Exp $")
 
 (in-package "PCL")
 
@@ -518,7 +518,7 @@
 		 ((eq (get-method-call-type gf form method-alist-p wrappers-p)
 		      'fast-method-call)
 		  '.fast-call-method.)
-		 (t .call-method.))))
+		 (t '.call-method.))))
     (case (car-safe form)
       ;;
       (call-method