diff --git a/pkgs/string-constants/string-constants-lib/info.rkt b/pkgs/string-constants/string-constants-lib/info.rkt
index f3eb3f5461..b2afc48670 100644
--- a/pkgs/string-constants/string-constants-lib/info.rkt
+++ b/pkgs/string-constants/string-constants-lib/info.rkt
@@ -1,8 +1,7 @@
 #lang info
 
 (define collection 'multi)
-(define deps '("base"
-               "compatibility-lib"))
+(define deps '("base"))
 
 (define pkg-desc "String constants to support internationalization, especially in DrRacket")
 
diff --git a/pkgs/string-constants/string-constants-lib/string-constants/private/only-once.rkt b/pkgs/string-constants/string-constants-lib/string-constants/private/only-once.rkt
deleted file mode 100644
index 5d282a26bf..0000000000
--- a/pkgs/string-constants/string-constants-lib/string-constants/private/only-once.rkt
+++ /dev/null
@@ -1,12 +0,0 @@
-(module only-once mzscheme
-  (provide maybe-print-message)
-  
-  (define already-printed? #f)
-  
-  (define (maybe-print-message msg)
-    (unless already-printed?
-      (set! already-printed? #t)
-      ;; the output port may no longer be there, in which case
-      ;; we just give up on printing
-      (with-handlers ([exn:fail? (lambda (x) (void))])
-        (eprintf "~a" msg)))))
diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt
index 7151c34214..cae6917904 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt
@@ -19,7 +19,6 @@
   racket/set
   racket/place
   syntax/stx racket/private/stx
-  (only-in string-constants/private/only-once maybe-print-message)
   (only-in mzscheme make-namespace)
   (only-in racket/match/runtime match:error matchable? match-equality-test))
  "base-structs.rkt"
@@ -1447,8 +1446,6 @@
 
 [read-accept-reader (-Param B B)]
 
-[maybe-print-message (-String . -> . -Void)]
-
 #|
 [sort (-poly (a b) (cl->* ((-lst a) (a a . -> . B)
                           #:cache-keys? B #f