From 6ddc3ee6c7111c7258e560b780f5d4881896b5be Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 1 May 2004 17:43:10 +0000
Subject: [PATCH] made open-input-text-editor's result have the editor as its
 object-name

original commit: 63dafb70de3fa50ae79d14761e00d3dcd7ee5bb9
---
 collects/mred/mred.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 71f4592a..82dd2ef5 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7603,7 +7603,8 @@
 				    v)
 				  (make-semaphore-peek lock-semaphore)))))
 		      #f ; no peek
-		      close)])
+		      close
+                      text)])
 	  (if (is-a? snip wx:string-snip%)
 	      ;; Specilal handling for initial snip string in case
 	      ;;  it starts too early: