Index: doc/example-scripts/tk-locomotive.tcl
===================================================================
diff -u -r9ab6a86b4aee196f04363d13e5eadbdfdb814a06 -rc2374366bcb47c70ebd33cb16c8152eba783987f
--- doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision 9ab6a86b4aee196f04363d13e5eadbdfdb814a06)
+++ doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision c2374366bcb47c70ebd33cb16c8152eba783987f)
@@ -32,7 +32,7 @@
       set alpha [expr {$alpha + $delta}]
     }
     if {[info exists :act_pivot]} {
-      foreach {item perc} [set :act_pivot] break
+      lassign [set :act_pivot] item perc
       set rp [expr {${:r} * $perc}]
       set xp [expr {${:x} - $rp * cos($deg2arc * $alpha)}]
       set yp [expr {${:y} - $rp * sin($deg2arc * $alpha)}]