Index: library/lib/nxdoc-dc.tcl
===================================================================
diff -u -N -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
       }
Index: library/nx/nx.tcl
===================================================================
diff -u -N -r880487204ff2da18d2d25ebd727b9b4bbda86c8e -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 880487204ff2da18d2d25ebd727b9b4bbda86c8e)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -1083,7 +1083,7 @@
 
   proc createBootstrapVariableSlots {class definitions} {
     foreach att $definitions {
-      if {[llength $att]>1} {foreach {att default} $att break}
+      if {[llength $att]>1} {lassign $att att default}
       set slotObj [::nx::slotObj $class $att]
       #puts stderr "::nx::BootStrapVariableSlot create $slotObj"
       ::nx::BootStrapVariableSlot create $slotObj
@@ -2409,7 +2409,7 @@
 	  set cmds [::nsf::directdispatch $origin -frame object ::trace info variable $var]
 	  if {$cmds ne ""} {
 	    foreach cmd $cmds {
-	      foreach {op def} $cmd break
+	      lassign $cmd op def
 	      #$origin trace remove variable $var $op $def
 	      set domain [lindex $def 0]
 	      if {$domain eq $origin} {
Index: library/serialize/serializer.tcl
===================================================================
diff -u -N -r925485d2ec3b626277037d5fd3154172cc989f7a -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 925485d2ec3b626277037d5fd3154172cc989f7a)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -337,7 +337,7 @@
     
     :object method checkExportedMethods {} {
       foreach k [array names :exportMethods] {
-        foreach {o p m} $k break
+        lassign $k o p m
         set ok 0
         foreach p [array names :ignorePattern] {
           if {[string match $p $o]} {
@@ -553,7 +553,7 @@
       # which this object specific serializer is responsible
       #
       foreach k [Serializer exportedMethods] {
-        foreach {o p m} $k break
+        lassign $k o p m
 	if {![::nsf::object::exists $o]} {
 	  :warn "$o is not an object"
 	} elseif {[::nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
@@ -610,11 +610,12 @@
     :method serializeExportedMethods {s} {
       set r ""
       foreach k [array names :exportMethods] {
-        foreach {o p m} $k break
+        lassign $f o p m
         if {![:methodExists $o $p $m]} {
           :warn "Method does not exist: $o $p $m"
           continue
         }
+	set :targetName [$s getTargetName $o]
         append methods($o) [:serializeExportedMethod $o $p $m]\n
       }
       foreach o [array names methods] {set ($o) 1}
@@ -653,7 +654,7 @@
 
         if {$t ne ""} {
           foreach ops $t { 
-            foreach {op cmd} $ops break
+            lassign $ops op cmd
             # save traces in post_cmds
             $s addPostCmd [list $o trace add variable $v $op $cmd]
 
Index: library/xotcl/apps/utils/xo-daemon
===================================================================
diff -u -N -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- library/xotcl/apps/utils/xo-daemon	(.../xo-daemon)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ library/xotcl/apps/utils/xo-daemon	(.../xo-daemon)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -50,7 +50,7 @@
 	\t-rundir dirname  (default: $::opt(-rundir))\n"
   exit -1
 }
-foreach {daemon action} $argv break
+lassign $argv daemon action
 array set opt [lreplace $argv 0 1]
 
 # The daemon scripts should be 
Index: tests/doc.test
===================================================================
diff -u -N -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 {
Index: tests/returns.test
===================================================================
diff -u -N -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- tests/returns.test	(.../returns.test)	(revision 45e24b34c85bf0fc3e14db5250550100bd07ff31)
+++ tests/returns.test	(.../returns.test)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -66,7 +66,7 @@
 nx::test case app-specific-returns { 
 
     ::nx::methodParameterSlot object method type=range {name value arg} {
-	foreach {min max} [split $arg -] break
+        lassign [split $arg -] min max
 	if {$value < $min || $value > $max} {
 	    error "Value '$value' of parameter $name not between $min and $max"
 	}
@@ -202,7 +202,7 @@
 ::nx::test case app-specific-returns-nocheck { 
 
     ::nx::methodParameterSlot object method type=range {name value arg} {
-	foreach {min max} [split $arg -] break
+	lassign [split $arg -] min max
 	if {$value < $min || $value > $max} {
 	    error "Value '$value' of parameter $name not between $min and $max"
 	}