From b7502d6a0d3ae6af8c126edbf9ccf7351dac8744 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 5 Mar 2000 20:00:42 +0000
Subject: [PATCH] .

original commit: b4f4c4b54de58f4af35954a41473f7bdaaa975b2
---
 src/mred/wrap/mred.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index b4830dc5..5e4292b7 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -2750,7 +2750,9 @@
       [get-label (lambda () label)]
       [set-label (lambda (l)
 		   (check-string/false '(method window<%> set-label) l)
-		   (set! label l))]
+		   (set! label (if (string? l)
+				   (string->immutable-string l)
+				   l)))]
       [get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
 
       [accept-drop-files
@@ -2932,7 +2934,9 @@
       [get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
       [set-label (entry-point-1
 		  (lambda (l)
-		    (let ([l (and (string? l) (string->immutable-string l))])
+		    (let ([l (if (string? l) 
+				 (string->immutable-string l)
+				 l)])
 		      (send wx set-label l)
 		      (set! label l))))])
     (public