wip xbatmon-simple-tray

[chiark-tcl-applet.git] / applet.tcl

diff --git a/applet.tcl b/applet.tcl
index 777a45d4dc7cb207b7cee31539b433fdaffb63ef..da6d0aac37155b9fcc5a8f87bb7b530b866ca549 100644 (file)
--- a/applet.tcl
+++ b/applet.tcl
@@ -88,7 +88,7 @@ variable debug {}
 
 proc debug {m} {
     variable debug
 
 proc debug {m} {
     variable debug

-    if {![llength debug]} return
+    if {![llength $debug]} return

     uplevel #0 $debug [list $m]
 }
 
     uplevel #0 $debug [list $m]
 }