diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 7c786ae59b0728d62887d8f49cbfdb14975fe77d..f986e80961419636dc1a46e9736a1bb212cd6a34 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -996,7 +996,7 @@
   (undefined-value))
 
 
-;;; CONSTANT-REFERENCE-P  --  Internal
+;;; CONSTANT-REFERENCE-P  --  Interface
 ;;;
 ;;;    Return true if the value of Ref will always be the same (and is thus
 ;;; legal to substitute.)