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.