Index: openacs-4/packages/cms/www/tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/tree.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/tree.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/cms/www/tree.tcl	16 Nov 2004 22:32:47 -0000	1.2
@@ -108,6 +108,8 @@
   set state [initFolderTree $user_id]
 }
 
+ns_log Notice "**** state is $state"
+
 # Extract the current folder (it may be overwritten by user_action)
 set current_folder [ns_queryget current_folder]
 
@@ -181,8 +183,11 @@
 set mount_point ""
 set control_count 0
 
+
+ns_log Notice "**** fetchStateFolders = [fetchStateFolders $user_id state]"
 foreach folder [fetchStateFolders $user_id state] {
- 
+
+  ns_log Notice "**** folder is $folder" 
   set mount_point [folderAccess mount_point $folder]
   set name [folderAccess name $folder]
   set folder_id [folderAccess id $folder]