Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	16 Apr 2001 21:59:47 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	29 Apr 2001 19:24:12 -0000	1.9
@@ -734,12 +734,14 @@
 	delete from apm_package_files where version_id = :version_id
     }
     
-    foreach item $files {
+    db_transaction {
+        foreach item $files {
 	
-	set path [lindex $item 0]
-	set file_type [lindex $item 1]
-        set db_type [lindex $item 2]
-	apm_file_add $version_id $path $file_type $db_type
+	    set path [lindex $item 0]
+	    set file_type [lindex $item 1]
+            set db_type [lindex $item 2]
+	    apm_file_add $version_id $path $file_type $db_type
+        }
     }
 }