1 files changed, 3 insertions, 2 deletions
diff --git a/urgent.tcl b/urgent.tcl
index d7996c1..4242987 100644
--- a/urgent.tcl
+++ b/urgent.tcl
@@ -85,7 +85,6 @@ proc urgent::chat_message_notify {chatid from type body extras} {
 }
 
 proc urgent::xclientwinid {tkwin} {
-    tkwait visibility $tkwin ;# seems to be needed by xwininfo
     set data [exec xwininfo -children -id [winfo id $tkwin]]
     if {[regexp {Parent window id: (\S+)} $data -> id]} {
 	return $id
@@ -100,7 +99,9 @@ proc urgent::root_xwinid {xwinid _chatid} {
 }
 
 proc urgent::chat_xwinid {chatid} {
-    xclientwinid [chat::winid $chatid]
+    set tkwin [chat::winid $chatid]
+    tkwait visibility $tkwin ;# seems to be needed by xwininfo
+    xclientwinid $tkwin
 }
 
 proc urgent::record_xwinid {chatid _type} {