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)