Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	11 Jun 2018 09:41:40 -0000	1.7
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	9 Jul 2018 12:31:22 -0000	1.8
@@ -15,10 +15,12 @@
 	aa_run_with_teardown \
         -rollback \
         -test_code {
+
+            set package_id [subsite::main_site_id]
             
             # Create folder
             set folder_id [fs::new_root_folder \
-                               -package_id [ad_conn package_id] \
+                               -package_id $package_id \
                                -pretty_name "Foobar" \
                                -description "Foobar"]