diff --git a/code/describe.lisp b/code/describe.lisp
index 5d985ce4f01a8cb81675b2622f9a7b14558af000..f47d9be184a3e6ef4661144f768c9dca30c1cf46 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -248,7 +248,7 @@
   
   (let ((name (%primitive header-ref x %function-name-slot)))
     (when (symbolp name)
-      (desc-doc 'function name "Function Documention:")))
+      (desc-doc name 'function "Function Documention:")))
   
   (let ((info (%primitive header-ref
 			  (%primitive header-ref x