Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	24 Sep 2003 17:51:24 -0000	1.26
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	25 Sep 2003 10:47:56 -0000	1.27
@@ -123,7 +123,6 @@
     } else {
 	set path "$path/$package_key/$package_key.info"
     }
-    ns_log Notice "$path"
     if { [file exists $path] } {
 	return $path
     }
@@ -163,7 +162,8 @@
     DCW - 2001-05-03, change to use the content repository for tarball storage.
     
 } {
-    set files   [apm_version_file_list $version_id]    
+    set package_key [apm_package_key_from_version_id $version_id]
+    set files [apm_get_package_files -all_db_types -package_key $package_key]
     set tmpfile [ns_tmpnam]
     
     db_1row package_key_select {