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 -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 }]