chiark / gitweb /
wip xbatmon-simple-tray
[chiark-tcl-applet.git] / applet.tcl
index 777a45d..da6d0aa 100644 (file)
@@ -88,7 +88,7 @@ variable debug {}
 
 proc debug {m} {
     variable debug
-    if {![llength debug]} return
+    if {![llength $debug]} return
     uplevel #0 $debug [list $m]
 }