From d70673cdc680cf9af60fda4283cf41141f476dba Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 30 Jan 2010 20:50:18 +0000
Subject: [PATCH] fixed a bug found by the random testing from
 randomly-click-language-dialog.ss

svn: r17897

original commit: 30c5d37b81cdd70f517eab7392896e8afffad6e6
---
 collects/framework/test.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/framework/test.ss b/collects/framework/test.ss
index 860fe61b..1fe661a3 100644
--- a/collects/framework/test.ss
+++ b/collects/framework/test.ss
@@ -205,8 +205,9 @@
   (λ (window)
     (let ([frame  (get-active-frame)])
       (let loop ([window  window])
-        (cond [(null? window)      #f]
-              [(eq? window frame)  #t]
+        (cond [(not window) #f]
+              [(null? window) #f]  ;; is this test needed?
+              [(eq? window frame) #t]
               [else  (loop (send window get-parent))])))))
 
 ;;