Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	5 Jun 2009 17:48:48 -0000	1.2
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	5 Jun 2009 18:38:27 -0000	1.3
@@ -201,6 +201,7 @@
     }
   }
   TreeRenderer=list instproc render_node {{-open:boolean false} cat_content} {
+    #my msg "[my label] [my expanded]"
     set cl [lindex [my info precedence] 0]
     set o_atts [lindex [$cl li_expanded_atts] [expr {[my expanded] ? 0 : 1}]]
     set h_atts [lindex [$cl highlight_atts] [expr {[my highlight] ? 0 : 1}]]