From ecee097aa8c19143726d18d11af3ad09a8a25a2f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 13 Feb 1998 19:20:18 +0000
Subject: [PATCH] set-empty-callbackS

original commit: 418f2fa8ee7905b6747447955c949f64b26e795e
---
 collects/tests/mred/mem.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index dd399c83..7353471e 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -237,7 +237,7 @@
 
 (define mred:startup
   (lambda args
-    ; (send mred:the-frame-group set-empty-callback (lambda () #t))
+    (send mred:the-frame-group set-empty-callbacks (lambda () #t) (lambda () #t))
     (do-test)
     (make-object mred:console-frame%)))