diff --git a/collects/racket/private/for.rkt b/collects/racket/private/for.rkt
index e926bcee2f..467b86af8f 100644
--- a/collects/racket/private/for.rkt
+++ b/collects/racket/private/for.rkt
@@ -629,7 +629,7 @@
                          #'unsafe-vector-ref))
 
   
-  (define-:vector-like-gen :string-gen unsafe-string-ref)
+  (define-:vector-like-gen :string-gen string-ref)
   
   (define-in-vector-like in-string
     "string" string? string-length :string-gen)
diff --git a/collects/tests/racket/for.rktl b/collects/tests/racket/for.rktl
index ae4288d5a9..031f5c2ab2 100644
--- a/collects/tests/racket/for.rktl
+++ b/collects/tests/racket/for.rktl
@@ -25,7 +25,9 @@
 (test-generator [(b d f)] (in-vector #(a b c d e f g h) 1 6 2))
 (test-generator [(h f d)] (in-vector #(a b c d e f g h) 7 2 -2))
 (test-generator [(#\a #\b #\c)] "abc")
+(test-generator [(#\a #\u3bb #\c)] "a\u03BBc")
 (test-generator [(#\a #\b #\c)] (in-string "abc"))
+(test-generator [(#\a #\u3bb #\c)] (in-string "a\u03BBc"))
 (test-generator [(#\a #\b #\c)] (in-string "zzabc" 2))
 (test-generator [(#\a #\b #\c)] (in-string "zzabc" 2 #f))
 (test-generator [(#\a #\b #\c)] (in-string "zzabcqq" 2 5))