From ed6d4eddcd6f0f1da76241963aeade224903e5ec Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 20 Nov 2000 22:26:28 +0000
Subject: [PATCH] ...

original commit: 6dc2a4b639b22ceb5efc29eeb1b610d72351dd41
---
 src/mred/wrap/mred.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 40919142..fc177316 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4573,6 +4573,9 @@
 	   [single? (and (< (length strings) 10) 
 			 (andmap (lambda (s) (< (string-length s) 60)) strings))]
 	   [f (make-object (class dialog% ()
+			     (public
+			       [get-message
+				(lambda () message)])
 				  (override
 				    [on-subwindow-event 
 				     (lambda (w e)