diff --git a/src/frame.c b/src/frame.c
index 461afb3166a..f3b83ff106c 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -967,6 +967,8 @@ Return the symbol `icon' if frame is visible only as an icon.")
 {
   CHECK_LIVE_FRAME (frame, 0);
 
+  FRAME_SAMPLE_VISIBILITY (XFRAME (frame));
+
   if (FRAME_VISIBLE_P (XFRAME (frame)))
     return Qt;
   if (FRAME_ICONIFIED_P (XFRAME (frame)))