diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp
index 7e2e42dce..fbcfd2f51 100644
--- a/src/clos/fixup.lsp
+++ b/src/clos/fixup.lsp
@@ -215,10 +215,10 @@ their lambda lists ~A and ~A are not congruent."
 ;;; ----------------------------------------------------------------------
 ;;; Error messages
 
-(defmethod no-applicable-method (gf &rest args)
-    (declare (ignore args))
-  (error "No applicable method for ~S" 
-	 (generic-function-name gf)))
+(defmethod no-applicable-method (gf args)
+  (error "No applicable method for ~S with arguments of types~{~& ~A~}" 
+	 (generic-function-name gf)
+         (mapcar #'type-of args)))
 
 (defmethod no-next-method (gf method &rest args)
   (declare (ignore gf args))