diff --git a/collects/rackunit/private/format.rkt b/collects/rackunit/private/format.rkt
index e254f19c9f..cd2d38bb50 100644
--- a/collects/rackunit/private/format.rkt
+++ b/collects/rackunit/private/format.rkt
@@ -1,6 +1,5 @@
 #lang racket/base
 (require racket/match
-         srfi/13
          "base.rkt"
          "check-info.rkt")
 
@@ -31,6 +30,15 @@
 (define (display-error)
   (display "ERROR"))
 
+(define (string-pad-right s n)
+  (define m (string-length s))
+  (cond
+   [(= m n) s]
+   [(m . < . n)
+    (string-append (make-string (- n m) #\space) s)]
+   [else
+    (substring s (- m n))]))
+
 (define (display-check-info-name-value name value [value-printer write])
   (display (string-pad-right
             (string-append (symbol->string name) ": ")