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 -N -r1.67 -r1.67.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	5 Dec 2009 02:08:14 -0000	1.67
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	29 Aug 2013 22:20:08 -0000	1.67.2.1
@@ -955,6 +955,7 @@
 			 -image_type "file_storage_object" \
 			 -title $title \
 			 -description $description \
+             -package_id $package_id \
 			 $parent_id \
 			 $tmp_filename \
 			 $tmp_size \
@@ -1022,6 +1023,7 @@
 			 -image_type "file_storage_object" \
 			 -title $title \
 			 -description $description \
+             -package_id $package_id \
 			 $parent_id \
 			 $tmp_filename \
 			 $tmp_size \