diff --git a/src/clos/inspect.lsp b/src/clos/inspect.lsp
index 1980e34d0c892ec4566edf6e2b3183c9f8f6b914..d35d1043803d5314bfab4c1a3b0eaef269c428c0 100644
--- a/src/clos/inspect.lsp
+++ b/src/clos/inspect.lsp
@@ -521,13 +521,13 @@ q (or Q):             quits the inspection.~%~
 
 (defmethod documentation ((object function) doc-type)
   (when (member doc-type '(t function))
-    (let ((fun-name (compiled-function-name object)))
+    (let ((fun-name (si::compiled-function-name object)))
       (when (and fun-name (symbolp fun-name))
 	(si::get-documentation object doc-type)))))
 
 (defmethod (setf documentation) (new-value (object function) doc-type)
   (when (member doc-type '(t function))
-    (let ((fun-name (compiled-function-name object)))
+    (let ((fun-name (si::compiled-function-name object)))
       (when (and fun-name (symbolp fun-name))
 	(si::set-documentation object doc-type new-value)))))