Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -N -r1.54 -r1.54.2.1
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	12 Aug 2013 20:01:06 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	17 Sep 2013 17:49:23 -0000	1.54.2.1
@@ -142,7 +142,7 @@
     foreach attribute $args {
       set l [split $attribute]
       if {[llength $l] > 1} {
-        foreach {attribute HTMLattribute} $l break
+        lassign $l attribute HTMLattribute
       } else {
         set HTMLattribute $attribute
       }
@@ -166,7 +166,7 @@
     foreach attribute $args {
       set l [split $attribute]
       if {[llength $l] > 1} {
-        foreach {attribute HTMLattribute} $l break
+        lassign $l attribute HTMLattribute
       } else {
         set HTMLattribute $attribute
       }
@@ -232,7 +232,7 @@
       while {[regexp {^([^\x002]*)\x002\(\x001([^\x001]*)\x001\)\x002(.*)$} $text _ \
                   before key text]} {
 	append return_text $before
-	foreach {package_key message_key} [split $key .] break
+	lassign [split $key .] package_key message_key
 	set url [export_vars -base $::xo::acs_lang_url/edit-localized-message {
 	  {locale {[ad_conn locale]} }
 	  package_key message_key 
@@ -734,7 +734,7 @@
       set actual_query ""
     }
     foreach pair [split $actual_query &] {
-      foreach {key value} [split $pair =] break
+      lassign [split $pair =] key value
       if {$key eq "orderby"} continue
       lappend query [list [ns_urldecode $key] [ns_urldecode $value]]
     }