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