Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	22 Feb 2005 18:16:52 -0000	1.5
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	7 Mar 2005 15:32:12 -0000	1.6
@@ -135,5 +135,5 @@
 
     set root [fs::get_root_folder -package_id $package_id]
 
-    fs::new_folder -name $name -pretty_name $pretty_name -parent_id $root -creation_user 0 -creation_ip 127.0.0.1
+    fs::new_folder -name $name -pretty_name $pretty_name -parent_id $root -creation_user [ad_conn user_id] -creation_ip 127.0.0.1
 }