diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 243c8134..53d25eb1 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1266,7 +1266,7 @@
                                      (ormap
                                       (λ (x)
                                         (text-between-equal? x text backward-match before-whitespace-pos))
-                                      '("cond" "field" "provide/contract")))
+                                      '("case-lambda" "cond" "field" "provide/contract")))
                           (change-to 2 #\())]))]
                   [(not (zero? before-whitespace-pos))
                    ;; this is the first thing in the sequence
diff --git a/collects/tests/framework/keys.ss b/collects/tests/framework/keys.ss
index e53e5580..04df918b 100644
--- a/collects/tests/framework/keys.ss
+++ b/collects/tests/framework/keys.ss
@@ -122,6 +122,7 @@
      (build-open-bracket-spec "(provide/contract " 18 #\[)
      (build-open-bracket-spec "(kond " 5 #\()
      (build-open-bracket-spec "(cond " 5 #\[)
+     (build-open-bracket-spec "(case-lambda " 13 #\[)
      (build-open-bracket-spec "(let ([]" 8 #\[)
      (build-open-bracket-spec "(let ({}" 8 #\{)
      (build-open-bracket-spec "()" 2 #\()