diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 62a2dd7c..f7d3285f 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5396,7 +5396,13 @@
 		      (lambda (i s)
 			(check-item 'set-item-label i)
 			(check-label-string '(method tab-panel% set-item-label) s)
-			(as-exit (lambda () (send (mred->wx tabs) set-label i s)))))])
+			(let ([s (string->immutable-string s)])
+			  (set-car! (list-tail save-choices i) s)
+			  (as-exit (lambda () (send (mred->wx tabs) set-label i s))))))]
+     [get-item-label (entry-point
+		      (lambda (i)
+			(check-item 'get-item-label i)
+			(list-ref save-choices i)))])
     
     (private
       [check-item
diff --git a/notes/mred/HISTORY b/notes/mred/HISTORY
index 9016d65a..4e2d0c7b 100644
--- a/notes/mred/HISTORY
+++ b/notes/mred/HISTORY
@@ -1,4 +1,7 @@
 
+Version 299.23
+Added get-item-label and set-item-label to tab-panel%
+
 Version 299.22
 Added 'float style for frame%
 Added combo-field%