X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl-applet.git;a=blobdiff_plain;f=applet.tcl;h=da6d0aac37155b9fcc5a8f87bb7b530b866ca549;hp=777a45d4dc7cb207b7cee31539b433fdaffb63ef;hb=164fa32f125324078dbf45342d5e2a363a04ef1c;hpb=6dff33e6e653f5a7e9127f835ef55010d5391c80;ds=sidebyside

diff --git a/applet.tcl b/applet.tcl
index 777a45d..da6d0aa 100644
--- a/applet.tcl
+++ b/applet.tcl
@@ -88,7 +88,7 @@ variable debug {}
 
 proc debug {m} {
     variable debug
-    if {![llength debug]} return
+    if {![llength $debug]} return
     uplevel #0 $debug [list $m]
 }