diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp
index 39457ba92..31715f945 100644
--- a/src/clos/fixup.lsp
+++ b/src/clos/fixup.lsp
@@ -324,3 +324,6 @@ their lambda lists ~A and ~A are not congruent."
 
 (function-to-method 'find-method-combination
   '((gf standard-generic-function) method-combination-type-name method-combination-options))
+
+(function-to-method '(setf generic-function-name)
+  '((name t) (gf generic-function)))