diff --git a/src/clos/combin.lsp b/src/clos/combin.lsp
index c865121655e94a9f4449013d5dc8860ca565dce3..cd0842e8317a9b9d9238806446c1727f694c6e68 100644
--- a/src/clos/combin.lsp
+++ b/src/clos/combin.lsp
@@ -87,14 +87,11 @@
 ;;; is the equivalent of (CALL-METHOD method rest-methods)
 ;;;
 (defun combine-method-functions (method rest-methods)
-  (if rest-methods ;; JCB
-      #'(lambda (args no-next-methods)
-	  (declare (ignorable no-next-methods))
-	  (let ((.combined-method-args. args))
-	    (declare (special .combined-method-args.)) ;; JCB
-	    (funcall method args rest-methods)))
-    method ;; since there is nothing to combine. JCB
-    )
+  #'(lambda (args no-next-methods)
+      (declare (ignorable no-next-methods))
+      (let ((.combined-method-args. args))
+        (declare (special .combined-method-args.)) ;; JCB
+        (funcall method args rest-methods)))
   )
 
 (defmacro call-method (method &optional rest-methods)