diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 70f76e96f32..cdd27c48382 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -307,7 +307,7 @@ A lambda list keyword is a symbol that starts with `&'."
 
 (defun edebug-window-live-p (window)
   "Return non-nil if WINDOW is visible."
-  (some-window (lambda (w) (eq w window))))
+  (get-window-with-predicate (lambda (w) (eq w window))))
 
 ;; Not used.
 '(defun edebug-two-window-p ()