diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss
index e0b0a9ef..056c752e 100644
--- a/collects/tests/mred/windowing.ss
+++ b/collects/tests/mred/windowing.ss
@@ -396,15 +396,15 @@
 		   (st #f i get-shortcut)
 		   (stv i set-shortcut c))
 		 
-		 (st 'meta i get-x-shortcut-prefix)
-		 (let ([p (send i get-x-shortcut-prefix)])
-		   (stv i set-x-shortcut-prefix 'alt)
-		   (st 'alt i get-x-shortcut-prefix)
-		   (stv i set-x-shortcut-prefix 'ctl)
-		   (st 'ctl i get-x-shortcut-prefix)
-		   (stv i set-x-shortcut-prefix 'ctl-m)
-		   (st 'ctl-m i get-x-shortcut-prefix)
-		   (stv i set-x-shortcut-prefix 'alt)))])
+		 (st (get-default-shortcut-prefix) i get-shortcut-prefix)
+		 (let ([p (send i get-shortcut-prefix)])
+		   (stv i set-shortcut-prefix '(shift))
+		   (st '(shift) i get-shortcut-prefix)
+		   (stv i set-shortcut-prefix '(ctl))
+		   (st '(ctl) i get-shortcut-prefix)
+		   (stv i set-shortcut-prefix '(shift ctl))
+		   (st '(shift ctl) i get-shortcut-prefix)
+		   (stv i set-shortcut-prefix p)))])
 	  (st (list i1 i2 i3) m get-items)
 	  
 	  (st "&Plain" i1 get-label)