diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss
index 6ea3c6dd..7dda9b59 100644
--- a/collects/tests/mred/windowing.ss
+++ b/collects/tests/mred/windowing.ss
@@ -723,7 +723,13 @@
 	     (st 3 l get-number)
 	     (st "ONe" l get-string 0)
 	     (st "TW&o" l get-string 1)
-	     (st "THRee" l get-string 2))
+	     (st "THRee" l get-string 2)
+
+	     (stv l set-data 0 'my-example-data)
+	     (stv l set-data 2 'my-other-data)
+	     (st 'my-example-data l get-data 0)
+	     (st #f l get-data 1)
+	     (st 'my-other-data l get-data 2))
 
 	   'done-list)])
 
diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 538d62c9..e0e80089 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3715,7 +3715,7 @@
 		      (if on?
 			  (when (memq i disabled)
 			    (set! disabled (remq i disabled))
-			    (send keymap add-chained-keymap (send (mred->wx i) get-keymap) #t)
+			    (send keymap chain-to-keymap (send (mred->wx i) get-keymap) #t)
 			    (unless disabled?
 			      (super-enable-top p #t)))
 			  (unless (memq i disabled)