diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss
index 037fdfc55d..2cd842adf2 100644
--- a/collects/mred/private/wxme/text.ss
+++ b/collects/mred/private/wxme/text.ss
@@ -3461,7 +3461,7 @@
 
                                           (let* ([n (sub1 n)]
                                                  [c (string-ref text i)]
-                                                 [c (if case-sens? (char-foldcase c) c)]
+                                                 [c (if case-sens? c (char-foldcase c))]
                                                  [s (let loop ([s s])
                                                       (if (and (not (= beyond s))
                                                                (not (char=? (string-ref str (+ s direction)) c)))