diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp
index 5c4c1d757d89862eaac3a311857d5b28658d3d04..36efe589fa5832555effb20bb59713a4d8818f62 100644
--- a/hemlock/rompsite.lisp
+++ b/hemlock/rompsite.lisp
@@ -748,9 +748,10 @@
    then this also outputs any 'function documentation for sym to
    *standard-output*."
   (describe fun)
-  #+nil
   (when (and (compiled-function-p fun)
-	     (not (eq (%primitive header-ref fun %function-name-slot) sym)))
+	     (not (eq (kernel:%function-header-name
+		       (kernel:%closure-function fun))
+		      sym)))
     (let ((doc (documentation sym 'function)))
       (when doc
 	(format t "~&Function documentation for ~S:" sym)