diff --git a/collects/typed-scheme/typecheck/tc-app.ss b/collects/typed-scheme/typecheck/tc-app.ss
index aacdd16277..dcaca4d229 100644
--- a/collects/typed-scheme/typecheck/tc-app.ss
+++ b/collects/typed-scheme/typecheck/tc-app.ss
@@ -478,9 +478,9 @@
       kw-list
       (#%plain-app list . kw-arg-list)
       . pos-args)
-     #:declare cpce (id-from 'checked-procedure-check-and-extract 'scheme/private/kw)
-     #:declare s-kp (id-from 'struct:keyword-procedure 'scheme/private/kw)
-     #:declare kpe  (id-from 'keyword-procedure-extract 'scheme/private/kw)
+     #:declare cpce (id-from 'checked-procedure-check-and-extract 'racket/private/kw)
+     #:declare s-kp (id-from 'struct:keyword-procedure 'racket/private/kw)
+     #:declare kpe  (id-from 'keyword-procedure-extract 'racket/private/kw)
      (match (tc-expr #'fn)
        [(tc-result1: (Poly: vars 
                             (Function: (list (and ar (arr: dom rng (and rest #f) (and drest #f) kw-formals))))))