diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 8d1d5584ee..72f0382f11 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -617,7 +617,8 @@
                        1))))
                (define close-first-curley (get-forward-sexp first-curley))
                (define para (position-paragraph pos))
-               (when (<= (paragraph-start-position para) close-first-curley (paragraph-end-position para))
+               (when (and close-first-curley
+                          (<= (paragraph-start-position para) close-first-curley (paragraph-end-position para)))
                  (set! containing-curleys (max 0 (- containing-curleys 1))))
                (do-indent (* containing-curleys 2))]
               [(not last)