From 95117335abbf35e577faef1dd61a34e87153bbfd Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 10 Mar 1999 00:36:52 +0000
Subject: [PATCH] no input

original commit: 29ff060ec59213244a49e95182df4f73a21848ef
---
 collects/tests/mred/mem.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index ac9bc202..dd27b754 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -83,10 +83,11 @@
 		start 100))
 
 	(if frame?
-	    (let* ([f (make-object (if (even? n)
+	    (let* ([f (remember tag
+	    	       (make-object (if (even? n)
 				       frame% 
 				       dialog%)
-				   "Tester" #f 200 200)]
+				   "Tester" #f 200 200))]
 		   [p (remember tag (make-object (get-pane% n) f))])
 	      (remember tag (make-object canvas% f))
 	      (when (zero? (modulo n 3))
@@ -214,7 +215,7 @@
   (thread-weight t (floor (/ (thread-weight t) n))))
 
 (define (breakable t)
-  (if #t
+  (if #f
       (thread (lambda ()
 		(read)
 		(printf "breaking~n")