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.56 -r1.57
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	23 Nov 2006 12:39:03 -0000	1.56
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 Nov 2006 10:54:03 -0000	1.57
@@ -297,6 +297,9 @@
     
     if {$package_id eq ""} {
 	set package_id [acs_object::package_id -object_id $parent_id]
+	if {[apm_package_key_from_id $package_id] ne "file-storage"} {
+	    set package_id ""
+	}
     }
     
     set folder_id [content::folder::new -name $name -label $pretty_name -parent_id $parent_id -creation_user $creation_user -creation_ip $creation_ip -description $description -package_id $package_id]