Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl,v
diff -u -N -r1.22 -r1.22.8.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	18 Mar 2009 22:41:15 -0000	1.22
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	29 Sep 2013 12:03:22 -0000	1.22.8.1
@@ -99,7 +99,7 @@
     set to [acs_mail_lite::parse_email_address -email $email(to)]
     ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recepient $to"
 
-    util_unlist [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
+    lassign [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
     
     # If no user_id found or signature invalid, ignore message
     if {$user_id eq ""} {
Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v
diff -u -N -r1.6.10.1 -r1.6.10.2
--- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	6 Sep 2013 12:06:49 -0000	1.6.10.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	29 Sep 2013 12:03:22 -0000	1.6.10.2
@@ -64,7 +64,7 @@
 
     set mapped_trees [category_tree::get_mapped_trees $group_id]
     foreach mapped_tree $mapped_trees {
-	util_unlist $mapped_tree tree_id tree_name subtree_id
+	lassign $mapped_tree tree_id tree_name subtree_id
 	if {$subtree_id ne ""} {
 	    set tree_name "${tree_name}::[category::get_name $subtree_id]"
 	}
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -N -r1.35.8.5 -r1.35.8.6
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	28 Sep 2013 19:14:24 -0000	1.35.8.5
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	29 Sep 2013 12:03:22 -0000	1.35.8.6
@@ -284,7 +284,7 @@
     global apm_current_package_key
 
     foreach file_info $files {
-	util_unlist $file_info package_key path
+	lassign $file_info package_key path
 
 	if { $force_reload_p || ![nsv_exists apm_library_mtime packages/$package_key/$path] } {
 	    if { [file exists "[acs_root_dir]/packages/$package_key/$path"] } {
Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl,v
diff -u -N -r1.15 -r1.15.2.1
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	8 Apr 2013 15:50:25 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	29 Sep 2013 12:03:22 -0000	1.15.2.1
@@ -112,7 +112,7 @@
 
     set filter_index 0
     foreach filter_info $filters {
-	util_unlist $filter_info priority kind method path \
+	lassign $filter_info priority kind method path \
 		proc arg debug critical description script
 
 	# Figure out how to invoke the filter, based on the number of arguments.
@@ -149,7 +149,7 @@
 
     set proc_index 0
     foreach proc_info $procs {
-	util_unlist $proc_info method path proc arg debug noinherit description script
+	lassign $proc_info method path proc arg debug noinherit description script
 
 	if { $noinherit eq "t" } {
 	    set noinherit_switch "-noinherit"
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -N -r1.113.2.7 -r1.113.2.8
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Sep 2013 17:55:19 -0000	1.113.2.7
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	29 Sep 2013 12:03:22 -0000	1.113.2.8
@@ -240,7 +240,7 @@
 } {
     set startclicks [clock clicks -milliseconds]
 
-    util_unlist $filter_info filter_index debug_p arg_count proc arg
+    lassign $filter_info filter_index debug_p arg_count proc arg
 
     rp_debug -debug $debug_p "Invoking $why filter $proc"
 
@@ -298,7 +298,7 @@
 } {
     set startclicks [clock clicks -milliseconds]
 
-    util_unlist $argv proc_index debug_p arg_count proc arg
+    lassign $argv proc_index debug_p arg_count proc arg
 
     rp_debug -debug $debug_p "Invoking registered procedure $proc"
 
Index: openacs-4/packages/categories/lib/tree-code.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-code.tcl,v
diff -u -N -r1.1 -r1.1.8.1
--- openacs-4/packages/categories/lib/tree-code.tcl	6 Jun 2005 09:43:47 -0000	1.1
+++ openacs-4/packages/categories/lib/tree-code.tcl	29 Sep 2013 12:04:41 -0000	1.1.8.1
@@ -4,6 +4,6 @@
 
 multirow create categories name level pad
 foreach category [category_tree::get_tree -all $tree_id $default_locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
     multirow append categories $category_name $level [string repeat " " [expr {2 * $level - 2}]]
 }
Index: openacs-4/packages/categories/lib/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-form.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/categories/lib/tree-form.tcl	20 May 2011 10:41:11 -0000	1.3
+++ openacs-4/packages/categories/lib/tree-form.tcl	29 Sep 2013 12:04:41 -0000	1.3.2.1
@@ -21,7 +21,7 @@
 } -edit_request {
     permission::require_permission -object_id $tree_id -privilege category_tree_write
     set action Edit
-    util_unlist [category_tree::get_translation $tree_id $locale] tree_name description
+    lassign [category_tree::get_translation $tree_id $locale] tree_name description
     set language $locale
 } -on_submit {
     set description [util_close_html_tags $description 4000]
Index: openacs-4/packages/categories/tcl/category-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-form-procs.tcl,v
diff -u -N -r1.6 -r1.6.6.1
--- openacs-4/packages/categories/tcl/category-form-procs.tcl	6 Oct 2007 13:48:29 -0000	1.6
+++ openacs-4/packages/categories/tcl/category-form-procs.tcl	29 Sep 2013 12:04:41 -0000	1.6.6.1
@@ -27,7 +27,7 @@
     set category_trees [category_tree::get_mapped_trees $container_object_id]
     
     foreach tree $category_trees {
-	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p widget
+	lassign $tree tree_id name subtree_id assign_single_p require_category_p widget
         if {[lsearch -exact $excluded_trees $tree_id] > -1} { 
             continue
         } 
@@ -67,7 +67,7 @@
     set category_trees [category_tree::get_mapped_trees $container_object_id]
     set category_ids [list]
     foreach tree $category_trees {
-	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p widget
+	lassign $tree tree_id name subtree_id assign_single_p require_category_p widget
         upvar #[template::adp_level] \
           __category__ad_form__$element_name\_${tree_id} my_category_ids
         if {[info exists my_category_ids]} { 
Index: openacs-4/packages/categories/tcl/category-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-list-procs.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/tcl/category-list-procs.tcl	8 Nov 2008 17:05:38 -0000	1.6
+++ openacs-4/packages/categories/tcl/category-list-procs.tcl	29 Sep 2013 12:04:41 -0000	1.6.4.1
@@ -146,7 +146,7 @@
     set result ""
     set old_tree_id 0
     foreach category $sorted_categories {
-	util_unlist $category category_id category_name tree_id tree_name
+	lassign $category category_id category_name tree_id tree_name
 
 	set category_name [ad_quotehtml $category_name]
 	if {$category_link_eval ne ""} {
@@ -317,7 +317,7 @@
 		set pretty_category_list ""
 
 		foreach category $tree_categories($tree_id) {
-		    util_unlist $category category_id category_name
+		    lassign $category category_id category_name
 		    set category_name [ad_quotehtml $category_name]
 		    if {$category_link_eval ne ""} {
 			set category_link [uplevel 1 concat $category_link_eval]
@@ -494,7 +494,7 @@
 	# pretty list of category-names
 	set result ""
 	foreach tree $trees {
-	    util_unlist $tree tree_name tree_id
+	    lassign $tree tree_name tree_id
 	    append result "$categories_column\_$tree_id {
 		label \"$tree_name\"
 		display_template {[regsub -all "@$name\.$categories_column\(;noquote\)?@" $display_template "@$name\.$categories_column\_$tree_id\\1@"]}
Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -N -r1.25.4.1 -r1.25.4.2
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	5 Sep 2013 11:51:00 -0000	1.25.4.1
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	29 Sep 2013 12:04:41 -0000	1.25.4.2
@@ -22,7 +22,7 @@
     } {
         db_1row get_tree_data "" -column_array tree
 
-        util_unlist [get_translation $tree_id $locale] tree(tree_name) tree(description)
+        lassign [get_translation $tree_id $locale] tree(tree_name) tree(description)
         return [array get tree]
     }
 
@@ -302,7 +302,7 @@
         set result ""
         if {$subtree_id eq ""} {
             foreach category $tree {
-                util_unlist $category category_id deprecated_p level
+                lassign $category category_id deprecated_p level
                 if {$all_p || $deprecated_p == "f"} {
                     lappend result [list $category_id [category::get_name $category_id $locale] $deprecated_p $level]
                 }
@@ -311,7 +311,7 @@
             set in_subtree_p 0
             set subtree_level 0
             foreach category $tree {
-                util_unlist $category category_id deprecated_p level
+                lassign $category category_id deprecated_p level
                 if {$level <= $subtree_level} {
                     set in_subtree_p 0
                 }
Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -N -r1.22 -r1.22.4.1
--- openacs-4/packages/categories/tcl/widget-procs.tcl	8 Nov 2008 17:05:38 -0000	1.22
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	29 Sep 2013 12:04:41 -0000	1.22.4.1
@@ -125,7 +125,7 @@
     }
 
     foreach mapped_tree $mapped_trees {
-	util_unlist $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
+	lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
 	set tree_name [ad_quotehtml [lang::util::localize $tree_name]]
 	set one_tree [list]
 
@@ -136,7 +136,7 @@
         }
 
 	foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
-	    util_unlist $category category_id category_name deprecated_p level
+	    lassign $category category_id category_name deprecated_p level
 	    set category_name [ad_quotehtml [lang::util::localize $category_name]]
 	    if { $level>1 } {
 		set category_name "[string repeat "&nbsp;" [expr {2*$level -4}]]..$category_name"
@@ -250,7 +250,7 @@
     if { $tree_id eq "" } {
 	set trees [list]
         foreach tree [category_tree::get_mapped_trees $package_id] {
-	    util_unlist $tree tree_id tree_name subtree_id assign_single_p require_category_p
+	    lassign $tree tree_id tree_name subtree_id assign_single_p require_category_p
 	    if {$require_category_p == "t" || ![info exists element(optional)]} {
 		lappend trees [list $tree_id $subtree_id]
 	    }
@@ -265,7 +265,7 @@
 
     set trees_without_category [list]
     foreach tree $trees {
-	util_unlist $tree tree_id subtree_id
+	lassign $tree tree_id subtree_id
 	# get categories of every tree requiring a categorization
 	foreach category [category_tree::get_tree -all -subtree_id $subtree_id $tree_id] {
 	    set tree_categories([lindex $category 0]) 1
Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -N -r1.9.4.4 -r1.9.4.5
--- openacs-4/packages/categories/www/categories-browse.tcl	9 Sep 2013 16:44:26 -0000	1.9.4.4
+++ openacs-4/packages/categories/www/categories-browse.tcl	29 Sep 2013 12:04:41 -0000	1.9.4.5
@@ -55,7 +55,7 @@
 foreach tree_id $tree_ids {
     set tree_name [category_tree::get_name $tree_id]
     foreach category [category_tree::get_tree $tree_id] {
-	util_unlist $category category_id category_name deprecated_p level
+	lassign $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
 	    set indent "[string repeat "&nbsp;" [expr {2*$level -4}]].."
Index: openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl,v
diff -u -N -r1.7 -r1.7.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	9 Nov 2008 23:29:23 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	29 Sep 2013 12:04:42 -0000	1.7.4.1
@@ -48,7 +48,7 @@
 template::multirow create tree link_category_name link_category_id forward_exists_p backward_exists_p left_indent view_url link_add_url bilink_add_url
 
 foreach category [category_tree::get_tree -all $link_tree_id $locale] {
-    util_unlist $category link_category_id link_category_name deprecated_p level
+    lassign $category link_category_id link_category_name deprecated_p level
     set forward_exists_p [info exists forward_links($link_category_id)]
     set backward_exists_p [info exists backward_links($link_category_id)]
 
Index: openacs-4/packages/categories/www/cadmin/category-parent-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-parent-change.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	29 Sep 2013 12:04:42 -0000	1.4.4.1
@@ -35,7 +35,7 @@
     [export_vars -no_empty -base category-parent-change-2 {tree_id category_id locale object_id ctx_id}]
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category parent_id category_name deprecated_p level
+    lassign $category parent_id category_name deprecated_p level
 
     if { [lsearch $subtree_categories_list $parent_id]==-1 } {
 	set parent_url [export_vars -no_empty -base category-parent-change-2 { parent_id tree_id category_id locale object_id ctx_id }]
Index: openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	20 May 2011 10:41:12 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	29 Sep 2013 12:04:42 -0000	1.4.2.1
@@ -38,7 +38,7 @@
 template::multirow create tree category_name deprecated_p level left_indent
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_name $deprecated_p $level [string repeat "&nbsp;" [expr ($level-1)*5]]
 }
Index: openacs-4/packages/categories/www/cadmin/tree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/categories/www/cadmin/tree-map.tcl	20 May 2011 10:41:12 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/tree-map.tcl	29 Sep 2013 12:04:42 -0000	1.9.2.1
@@ -34,7 +34,7 @@
 template::multirow create tree category_id category_name level left_indent map_url
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_id $category_name $level \
 	[string repeat "&nbsp;" [expr {($level-1)*5}]] \
Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -N -r1.5 -r1.5.4.1
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	8 Nov 2008 17:05:38 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	29 Sep 2013 12:04:42 -0000	1.5.4.1
@@ -66,7 +66,7 @@
         db_dml reset_category_index ""
 
         foreach category $done_list {
-            util_unlist $category category_id left_ind right_ind
+            lassign $category category_id left_ind right_ind
             db_dml update_category_index ""
         }
     }
Index: openacs-4/packages/categories/www/cadmin/tree-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	20 May 2011 10:41:12 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	29 Sep 2013 12:04:42 -0000	1.9.2.1
@@ -42,7 +42,7 @@
 
 set instances_without_permission 0
 foreach instance $instance_list {
-    util_unlist $instance package object_id object_name package_id instance_name read_p
+    lassign $instance package object_id object_name package_id instance_name read_p
     set unmap_url [export_vars -no_empty -base tree-unmap {tree_id object_id ctx_id}]
 
     if {$read_p == "t"} {
Index: openacs-4/packages/categories/www/cadmin/tree-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-view.tcl,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/categories/www/cadmin/tree-view.tcl	28 Oct 2011 14:16:47 -0000	1.16
+++ openacs-4/packages/categories/www/cadmin/tree-view.tcl	29 Sep 2013 12:04:42 -0000	1.16.2.1
@@ -45,7 +45,7 @@
 set sort_key 0
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
     incr sort_key 10
 
     template::multirow append one_tree $category_name $sort_key $category_id $deprecated_p $level [string repeat "&nbsp;" [expr {($level-1)*5}]]
Index: openacs-4/packages/categories/www/include/widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v
diff -u -N -r1.6 -r1.6.6.1
--- openacs-4/packages/categories/www/include/widget.tcl	6 Oct 2007 13:48:29 -0000	1.6
+++ openacs-4/packages/categories/www/include/widget.tcl	29 Sep 2013 12:04:42 -0000	1.6.6.1
@@ -17,10 +17,10 @@
 template::util::list_to_lookup [category::get_mapped_categories $object_id] mapped
 
 foreach tree [category_tree::get_mapped_trees $package_id] {
-    util_unlist $tree tree_id tree_name subtree_id assign_single_p require_category_p
+    lassign $tree tree_id tree_name subtree_id assign_single_p require_category_p
     set one_tree [list]
     foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
-	util_unlist $category category_id category_name deprecated_p level
+	lassign $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
 	    set indent "[string repeat "&nbsp;" [expr {2*$level -4}]].."