Index: openacs-4/packages/logger/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/logger/www/log.tcl	3 Feb 2004 21:12:18 -0000	1.17
+++ openacs-4/packages/logger/www/log.tcl	16 Feb 2004 14:53:25 -0000	1.18
@@ -137,7 +137,7 @@
 }
 
 foreach elm $category_trees {
-    foreach { tree_id name subtree_id assign_single_p } $elm {}
+    util_unlist $elm tree_id name subtree_id assign_single_p
     ad_form -extend -name log_entry_form -form \
         [list [list category_id_${tree_id}:integer(category) \
                    {label $name} \
@@ -187,7 +187,7 @@
     # Collect categories from all the category widgets
     set category_ids [list]
     foreach elm $category_trees {
-        foreach { tree_id name subtree_id assign_single_p } $elm {}
+        util_unlist $elm tree_id name subtree_id assign_single_p
         set category_ids [concat $category_ids [set category_id_${tree_id}]]
     }
 } -new_data {