diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index b8f666fb..a58de4a7 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1273,6 +1273,14 @@
 				 (lambda (b e)
 				   (send c select (send c get-selection) #f)))
 		    null))
+  (define change-button-name (if list? 
+                                 (make-object button%
+                                              "Change Name" cdp
+                                              (lambda (b e)
+                                                (send c set-string
+                                                      (send c get-selection)
+                                                      "New Name")))
+                                 null))
   (define (make-selectors method mname numerical?)
     (define p2 (make-object horizontal-panel% p))
     (send p2 stretchable-height #f)