diff --git a/collects/scheme/function.ss b/collects/scheme/function.ss
index 56a55e7a38..d60c1a670d 100644
--- a/collects/scheme/function.ss
+++ b/collects/scheme/function.ss
@@ -4,7 +4,7 @@
 
 (define (const c)
   (define (const . _) c)
-  const)
+  (make-keyword-procedure const const))
 
 (define (negate f)
   (unless (procedure? f) (raise-type-error 'negate "procedure" f))