diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.ss
index 94a6498d11..c6e1ed30ed 100644
--- a/collects/drscheme/private/app.ss
+++ b/collects/drscheme/private/app.ss
@@ -499,7 +499,7 @@
                                   (reverse good-strs))]
             [else (let ([str (car strs)]
                         [lang (car langs)])
-                    (if (andmap (λ (char) (send normal-control-font screen-glyph-exists? char))
+                    (if (andmap (λ (char) (send normal-control-font screen-glyph-exists? char #t))
                                 (string->list str))
                         (loop (cdr langs) 
                               (cdr strs)