From b4da375084717dff9064519ae175fb2dc7b868de Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Fri, 12 Mar 2010 03:28:26 +0000
Subject: [PATCH] improved release test

svn: r18519
---
 collects/2htdp/tests/release.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/2htdp/tests/release.ss b/collects/2htdp/tests/release.ss
index c5e3c81664..752a36e9be 100644
--- a/collects/2htdp/tests/release.ss
+++ b/collects/2htdp/tests/release.ss
@@ -8,7 +8,7 @@
             (on-draw (lambda (n)
                        (if (string? n)
                            (text (string-append "stopped: " n) 11 'red)
-                           (circle (+ 100 n) 'solid 'red)))
+                           (text "hold down a" 11 'blue)))
                      500 500)
             (on-tick (lambda (x) (if (string? x) x (add1 x)))
                      r)
@@ -23,3 +23,4 @@
                           (if (key=? "a" key) 
                               1
                               n)))))
+(main 1)