diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt
index 8f985283..f99a9342 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt
@@ -8,7 +8,6 @@
          (prefix-in s: srfi/1)
          (path-up "rep/type-rep.rkt" "rep/filter-rep.rkt" "rep/object-rep.rkt"
                   "rep/rep-utils.rkt" "types/subtype.rkt"
-                  "utils/string.rkt"
                   "utils/utils.rkt"
                   "utils/tc-utils.rkt")
          (for-syntax racket/base syntax/parse))
@@ -93,7 +92,7 @@
   (write-string (make-string indent #\space) out)
   (parameterize ([pretty-print-current-style-table type-style-table])
     (pretty-display (type->sexp type '()) out))
-  (chomp (substring (get-output-string out) indent)))
+  (string-trim #:left? #f (substring (get-output-string out) indent)))
 
 ;; filter->sexp : Filter -> S-expression
 ;; Print a Filter (see filter-rep.rkt) to the given port
diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt
index 3745b92f..f41dc8a1 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt
@@ -6,7 +6,6 @@ don't depend on any other portion of the system
 |#
 
 (require syntax/source-syntax "disappeared-use.rkt"
-         "string.rkt"
          racket/list racket/match racket/promise racket/string
          syntax/parse (for-syntax racket/base syntax/parse)
          (only-in unstable/sequence in-slice))
@@ -159,7 +158,8 @@ don't depend on any other portion of the system
       (values field-strs* (cons value vals))))
   (define more-msg (if more (string-append ";\n " more "\n") "\n"))
   (define all-fields (string-join (reverse field-strs) "\n"))
-  (define final-msg (chomp (string-append msg more-msg all-fields)))
+  (define final-msg
+    (string-trim #:left? #f (string-append msg more-msg all-fields)))
   (if delayed?
       (apply tc-error/delayed #:stx stx final-msg (reverse vals))
       (apply tc-error/stx stx final-msg (reverse vals))))