Index: openacs-4/packages/logger/lib/entries.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/entries.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/logger/lib/entries.tcl	3 Feb 2004 20:57:37 -0000	1.9
+++ openacs-4/packages/logger/lib/entries.tcl	16 Feb 2004 15:08:29 -0000	1.10
@@ -274,7 +274,7 @@
     # Filters
     set values_${id} [list]
     foreach elm [category_tree::get_tree $id] {
-        foreach { category_id category_name deprecated_p level } $elm {}
+        util_unlist $elm category_id category_name deprecated_p level
         lappend values_${id} [list "[string repeat "..." [expr $level-1]]$category_name" $category_id]
     }
     set tree_name_${id} [category_tree::get_name $id]