diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index 46658697..f9464532 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -310,8 +310,9 @@ (lambda (start len) (when styles-fixed? (set! styles-fixed-edit-modified? (modified?))) - (if (or (not mode) (send mode on-change-style this start len)) - (super-on-change-style start len)))] + (and (or (not mode) + (send mode on-change-style this start len)) + (super-on-change-style start len)))] [on-edit-sequence (lambda () (when mode