Index: openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl	11 Sep 2013 07:23:43 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl	29 Sep 2013 13:35:09 -0000	1.5
@@ -48,7 +48,7 @@
   ns_log Notice creating site wide category \"tree\"
 
   foreach rec $category_list {
-    util_unlist $rec category_id name
+    lassign $rec category_id name
     set sw_category_id [category::add \
       -tree_id $tree_id \
       -parent_id "" \
@@ -68,7 +68,7 @@
 
   set count 0
   foreach rec $oldcat_entry_list {
-    util_unlist $rec category_id entry_id
+    lassign $rec category_id entry_id
     ns_log Notice catmig $oldtonew($category_id)
     # This -remove_old thing is something you may want to customize for
     # your site.  It will remove all current site-wide categorizations