diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 9c28356ad897aee2bf9ea9feb7e83cb3ec25c332..1d650c582a58274f84951e698b44af89a5999397 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1226,7 +1226,8 @@ XINERAMA version 1.1 opcode: 150
                           (or in-current-root child-current-root-p)))))
 
                (hidden-child-p (rect)
-                 (when (member (window-type (child-rect-child rect)) *show-hide-policy-type*)
+                 (when (or (frame-p (child-rect-child rect))
+                           (member (window-type (child-rect-child rect)) *show-hide-policy-type*))
                    (dolist (r displayed-child)
                      (when (and (rect-hidden-p r rect)
                                 (or (not (xlib:window-p (child-rect-child r)))