Index: library/lib/nxdoc-dc.tcl =================================================================== diff -u -r263cd750f41d98badaae2b2d06bb2ea58feb99e4 -r6e4c08c5cf598e08cbc29516f84b09e5983e347c --- library/lib/nxdoc-dc.tcl (.../nxdoc-dc.tcl) (revision 263cd750f41d98badaae2b2d06bb2ea58feb99e4) +++ library/lib/nxdoc-dc.tcl (.../nxdoc-dc.tcl) (revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c) @@ -398,8 +398,7 @@ set line_counter -1 foreach line $lines { incr line_counter - # foreach {is_comment text} [:analyze_line $line] break; - lassign [:analyze_line $line] is_comment text; + lassign [:analyze_line $line] is_comment text eval $do($was_comment,$is_comment) set was_comment $is_comment }