diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 9761d5da..26657811 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -148,6 +148,7 @@
       
       (preferences:set-default 'framework:highlight-parens #t boolean?)
       (preferences:set-default 'framework:fixup-parens #t boolean?)
+      (preferences:set-default 'framework:fixup-open-parens #t boolean?)
       (preferences:set-default 'framework:paren-match #t boolean?)
       (let ([hash-table (make-hash-table)])
 	(for-each (λ (x) 
diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss
index 47fe251f..754b2da5 100644
--- a/collects/framework/private/preferences.ss
+++ b/collects/framework/private/preferences.ss
@@ -656,7 +656,11 @@ for the last one, need a global "no more initialization can happen" flag.
                                    values values)
                        (make-check scheme-panel
                                    'framework:fixup-parens
-                                   (string-constant fixup-parens)
+                                   (string-constant fixup-close-parens)
+                                   values values)
+                       (make-check scheme-panel
+                                   'framework:fixup-open-parens
+                                   (string-constant fixup-open-parens)
                                    values values)
                        (make-check scheme-panel
                                    'framework:paren-match
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index e62b45e6..9dc6c7cd 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -975,7 +975,7 @@
           (inherit is-frozen? is-stopped?)
           (define/public (rewrite-square-paren)
             (cond
-              [(or (not (preferences:get 'framework:fixup-parens))
+              [(or (not (preferences:get 'framework:fixup-open-parens))
                    (is-frozen?)
                    (is-stopped?))
                (insert #\[
@@ -1248,10 +1248,10 @@
                        ;; we found a new expression, two steps back, so we don't use the sibling
                        ;; check here -- we just go with square brackets.
                        [(and backward-match2
-                             (text-between-equal? "new"
-                                                  text
-                                                  backward-match2
-                                                  before-whitespace-pos2))
+                             (ormap 
+                              (λ (x)
+                                (text-between-equal? x text backward-match2 before-whitespace-pos2))
+                              '("new" "case")))
                         (void)]
                        [(member b-m-char '(#\( #\[ #\{))
                         ;; found a "sibling" parenthesized sequence. use the parens it uses.
@@ -1305,11 +1305,13 @@
                                                                    0)])
                                (cond
                                  [(and second-backwards-match2
-                                       (text-between-equal? "let" 
-                                                            text
-                                                            second-backwards-match2
-                                                            second-before-whitespace-pos2))
-                                  ;; found the `(let loop (' so we keep the [
+                                       (ormap (λ (x)
+                                                (text-between-equal? x 
+                                                                     text
+                                                                     second-backwards-match2
+                                                                     second-before-whitespace-pos2))
+                                              '("let")))
+                                  ;; found the `(let loop (' or `case' so we keep the [
                                   (void)]
                                  [else
                                   ;; otherwise, round.
diff --git a/collects/tests/framework/keys.ss b/collects/tests/framework/keys.ss
index bc3d525d..b6bc2dff 100644
--- a/collects/tests/framework/keys.ss
+++ b/collects/tests/framework/keys.ss
@@ -139,7 +139,9 @@
      (build-open-bracket-spec "ab" 1 #\()
      (build-open-bracket-spec "|ab|" 2 #\[)
      (build-open-bracket-spec "(let loop " 10 #\()
-     (build-open-bracket-spec "(let loop (" 11 #\[)))
+     (build-open-bracket-spec "(let loop (" 11 #\[)
+     (build-open-bracket-spec "(case x " 8 #\[)
+     (build-open-bracket-spec "(case x [" 9 #\()))
   
   
   (send-sexp-to-mred `(send (make-object frame:basic% "dummy to trick frame group") show #t))