diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 07e72d9232..5d46dc6589 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -204,7 +204,8 @@
          (let ([up-sexp (send text find-up-sexp click-pos)])
            (when up-sexp 
              (let ([fwd (send text get-forward-sexp up-sexp)])
-               (make-collapse-item text up-sexp fwd menu))))]))))
+               (when fwd
+                 (make-collapse-item text up-sexp fwd menu)))))]))))
 
 ;; make-expand-item : (instanceof text%) (instanceof sexp-snip<%>) (instanceof menu%) -> void
 (define (make-expand-item text snip menu)