Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 May 2002 17:01:56 -0000	1.16
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 Jun 2002 19:14:55 -0000	1.17
@@ -354,7 +354,7 @@
         }
 
         if {[empty_string_p $user_id]} {
-            set user_id [acs_magic_object "the_public"]
+            set user_id [acs_magic_object the_public]
         }
 
         return [db_list_of_ns_sets select_folder_contents {}]