diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp
index 42a751b70..97fda9d7d 100644
--- a/src/clos/fixup.lsp
+++ b/src/clos/fixup.lsp
@@ -349,3 +349,6 @@ their lambda lists ~A and ~A are not congruent."
   '((gf standard-generic-function)))
 (function-to-method 'generic-function-method-class
   '((gf standard-generic-function)))
+
+(function-to-method 'find-method-combination
+  '((gf standard-generic-function) method-combination-type-name method-combination-options))