diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index bd9ae9b6..0e41fdd9 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5391,7 +5391,7 @@
 	     (raise-mismatch-error (who->name `(method tab-panel% ,method)) 
 				   (if (zero? m)
 				       "panel has no tabs; given index: " 
-				       (format "panel has only ~a tabls, indexed 0 to ~a; given out-of-range index: " 
+				       (format "panel has only ~a tabs, indexed 0 to ~a; given out-of-range index: " 
 					       m (sub1 m)))
 				   n))))])))
 
diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index c2313c75..e88d2254 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1927,17 +1927,22 @@
 			     '(no-border)
 			     '())))
   (define p2 (if no-border?
-		 (make-object vertical-panel% f)
+		 (new vertical-panel% [parent f])
 		 p))
   (define count 3)
   (define on? #t)
-  (define m (make-object message% (format "Selected: ~a" (send p get-selection)) p))
+  (define m (make-object message% (format "Selected: ~a" (send p get-selection)) p2))
+
+  (when no-border?
+    (make-object vertical-pane% p2))
 
   (make-object button% "Append" p2 (lambda (b e) 
 				    (send p append (format "N&ew ~a" count))
 				    (set! count (add1 count))))
   (make-object button% "Delete" p2 (lambda (b e)
 				     (send p delete 0)))
+  (make-object button% "Set First" p2 (lambda (b e)
+					(send p set-selection 0)))
   (when no-border?
     (make-object button% "Toggle" p2 (lambda (b e)
 				       (if on?