diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index 166b31a993..a31e677278 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1216,7 +1216,7 @@ If the namespace does not, they are colored the unbound color. (loop (send (send admin get-snip) get-editor)) #f)]))) (cond - [window + [(and window (< -10000 x-off 10000) (< -10000 y-off 10000)) (define (c n) (inexact->exact (round n))) (define-values (gx gy) (send window client->screen (c x-off) (c y-off))) (values gx gy gx gy)]