diff --git a/racket/collects/racket/string.rkt b/racket/collects/racket/string.rkt
index c22fe11bc5..551ca54e2b 100644
--- a/racket/collects/racket/string.rkt
+++ b/racket/collects/racket/string.rkt
@@ -148,7 +148,7 @@
           [else (loop beg (add1 end))])))
 
 (define (string-split str [sep none] #:trim? [trim? #t] #:repeat? [+? #f])
-  (if (and (eq? sep none) trim?)
+  (if (and (string? str) (eq? sep none) trim?)
       (internal-split-whitespace str)
       (internal-split 'string-split str sep trim? +?)))