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))])))))
 
 ;;