diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index 82835fa3..4571407a 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -540,7 +540,7 @@
 			      (let ([x 5] [y 165])
 				(let ([mred-icon (get-icon)])
 				  (case mask-ex-mode
-				    [(plt plt-mask plt^plt)
+				    [(plt plt-mask plt^plt mred^plt)
 				     (let* ([plt (get-plt)]
 					    [tmp-bm (make-object bitmap% 
 								 (send mred-icon get-width)
@@ -554,12 +554,17 @@
 					     (/ (- (send mred-icon get-height)
 						   (send plt get-height))
 						2))
-				       (send dc draw-bitmap tmp-bm x y 'solid 
-					     (send the-color-database find-color "BLACK")
-					     (cond
-					      [(eq? mask-ex-mode 'plt-mask) mred-icon]
-					      [(eq? mask-ex-mode 'plt^plt) tmp-bm]
-					      [else #f])))]
+				       (if (eq? mask-ex-mode 'mred^plt)
+					   (send dc draw-bitmap mred-icon x y
+						 'solid
+						 (send the-color-database find-color "BLACK")
+						 tmp-bm)
+					   (send dc draw-bitmap tmp-bm x y 'solid 
+						 (send the-color-database find-color "BLACK")
+						 (cond
+						  [(eq? mask-ex-mode 'plt-mask) mred-icon]
+						  [(eq? mask-ex-mode 'plt^plt) tmp-bm]
+						  [else #f]))))]
                                     [(mred^mred)
                                      (send dc draw-bitmap mred-icon x y
                                            'solid
@@ -952,13 +957,13 @@
       (make-object button% "Clock" hp3 (lambda (b e) (clock #f)))
       (make-object button% "Clip Clock" hp3 (lambda (b e) (clock #t)))
       (make-object choice% #f
-                   '("MrEd XOR" "PLT Middle" "PLT ^ MrEd" "MrEd ^ MrEd" 
+                   '("MrEd XOR" "PLT Middle" "PLT ^ MrEd" "MrEd ^ PLT" "MrEd ^ MrEd" 
                      "MrEd~" "MrEd ^ MrEd~" "M^M~ Opaque" "M^M~ Red"
 		     "PLT^PLT")
                    hp3
 		   (lambda (self event)
 		     (send canvas set-mask-ex-mode 
-                           (list-ref '(mred plt plt-mask mred^mred 
+                           (list-ref '(mred plt plt-mask mred^plt mred^mred 
                                             mred~ mred^mred~ opaque-mred^mred~ red-mred^mred~
 					    plt^plt)
                                      (send self get-selection)))))))