diff --git a/gui.rkt b/gui.rkt
index 9424cb7..619bf3c 100644
--- a/gui.rkt
+++ b/gui.rkt
@@ -515,6 +515,7 @@
 
 (actor #:name 'window-list-monitor
        (during/actor (window-state $id $title _)
+         #:name (list 'window-list id)
          (field [x 0] [y 0])
          (define reqsize
            (parameterize ((theme-button-y-padding 8)