Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	25 Apr 2008 11:43:05 -0000	1.29
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	25 Apr 2008 17:23:35 -0000	1.30
@@ -506,7 +506,7 @@
       lappend trees [list $tree_id $my_tree_name]
     }
 
-    my msg "[llength $trees] == 0 && $tree_name"
+    #my msg "[llength $trees] == 0 && $tree_name"
     if {[llength $trees] == 0 && $tree_name ne ""} {
       # we have nothing left from mapped trees, maybe the tree_names are not mapped; 
       # try to get these
@@ -515,7 +515,7 @@
         lappend trees [list [lindex [category_tree::get_id $tree_name] 0] $name]
       }
     }
-    my msg "[llength $trees] == 0 && $tree_name"
+    #my msg "[llength $trees] == 0 && $tree_name"
     foreach tree $trees {
       foreach {tree_id my_tree_name ...} $tree {break}
       if {!$no_tree_name} {