From 46c6c9c3cc27e72c86e54cb2e271f3f5a68262b9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 6 Oct 2005 03:31:27 +0000
Subject: [PATCH] fixed label->plain-label

svn: r994
---
 src/mred/wxs/wxscheme.cxx | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index 336e2342ae..5dd63d6ad7 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -2934,6 +2934,9 @@ char *wxStripMenuCodes(char *label, char *target)
       return naya;
     }
   }
+
+  if (target)
+    strcpy(target, label);
   
   return label;
 }