Index: tests/doc.test
===================================================================
diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- tests/doc.test	(.../doc.test)	(revision 45e24b34c85bf0fc3e14db5250550100bd07ff31)
+++ tests/doc.test	(.../doc.test)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -54,7 +54,7 @@
   
   set ::prj [@project new -name _PROJECT_]
   foreach {::line ::result} $lines {
-    ? {foreach {is_comment text} [$::prj analyze_line $::line] break; set is_comment} $::result "processor analyze_line '$::line'"
+    ? {lassign [$::prj analyze_line $::line] is_comment text; set is_comment} $::result "processor analyze_line '$::line'"
   }
 
   set script {