Modified: trunk/base/src/port1.0/portlint.tcl (75819 => 75820)

--- trunk/base/src/port1.0/portlint.tcl	2011-02-09 16:42:53 UTC (rev 75819)
+++ trunk/base/src/port1.0/portlint.tcl	2011-02-09 16:43:17 UTC (rev 75820)
@@ -269,7 +269,7 @@
         }
 
         if {$hashline &&
-            ![string match \\\\ [string index $line [string length $line]-1]]} {
+            ![string match \\\\ [string index $line end]]} {
                 # if the last character is not a backslash we're done with
                 # line skipping
                 set hashline false