X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ten%2Ften.tcl;fp=ten%2Ften.tcl;h=3abe93183646f5574f695d960d09eebb57fcd935;hb=e63453e3095c682598081c24430cf087a850a30e;hp=a093a975be1973d25e9ba8b7c0ccc58dd674f42c;hpb=47f04c562fa3f1001830a48ec4a9e15717d71976;p=scpubgit%2FTenDotTcl.git

diff --git a/ten/ten.tcl b/ten/ten.tcl
index a093a97..3abe931 100644
--- a/ten/ten.tcl
+++ b/ten/ten.tcl
@@ -241,7 +241,7 @@ snit::type ten::read_channel {
       }
     } else {
       if [llength $options(-on_line_call)] {
-        while {[llength [set line [gets $chan]]] > 0} {
+        while {[string length [set line [gets $chan]]] > 0} {
           eval [concat $options(-on_line_call) [ list $line ]]
         }
       }