From 4a3e69442a8a32f141a5f2dca82e6d885db7f3a7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Feb 1999 03:53:39 +0000
Subject: [PATCH] .

original commit: bbd127a18ade61ef2e073dc856052a8be8e3fe7d
---
 src/mred/wrap/mred.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index d0b5e657..0b092aa9 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3594,6 +3594,7 @@
     (inherit delete-by-position)
     (rename [super-delete delete])
     (public
+      [get-container (lambda () this)]
       [get-keymap (lambda () keymap)]
       [get-mred (lambda () mred)]
       [get-items (lambda () items)]