From d0249aec6db22f9422c82b986e3a5aae6d281be0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 18 Oct 2014 10:42:07 -0500
Subject: [PATCH] =?UTF-8?q?guard=20object=3D=3F=20test=20properly?=

original commit: 496230db12b7b6669cea08f19e5695d74b2e39d7
---
 pkgs/gui-pkgs/gui-lib/framework/test.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pkgs/gui-pkgs/gui-lib/framework/test.rkt b/pkgs/gui-pkgs/gui-lib/framework/test.rkt
index dcd82527..e6f51297 100644
--- a/pkgs/gui-pkgs/gui-lib/framework/test.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/test.rkt
@@ -225,9 +225,10 @@
   (let ([frame  (test:get-active-top-level-window)])
     (let loop ([window  window])
       (cond [(not window) #f]
+            [(not frame) #f]
             [(null? window) #f]  ;; is this test needed?
             [(object=? window frame) #t]
-            [else  (loop (send window get-parent))]))))
+            [else (loop (send window get-parent))]))))
 
 ;;
 ;; Verify modifier list.