diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index 936450a0..489d4827 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -472,15 +472,13 @@
 			 [height (max 0 (- bottom top))])
 		    (let/ec k
 		      (cond
-			[(and (not before)
-			      color)
+			[(and before color)
 			 (send pen set-style wx:const-solid)
 			 (send brush set-style wx:const-solid)
 			 (send pen set-colour color)
 			 (send brush set-colour color)
 			 (send dc set-logical-function wx:const-and)]
-			[(and (not before)
-			      b/w-bitmap)
+			[(and (not before) (not color) b/w-bitmap)
 			 (send pen set-stipple b/w-bitmap)
 			 (send pen set-style wx:const-stipple)
 			 (send brush set-stipple b/w-bitmap)