Index: openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl	13 Jul 2002 00:13:09 -0000	1.6
+++ openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl	13 Jul 2002 03:05:24 -0000	1.7
@@ -58,18 +58,24 @@
         used for one-time init - must be repeatable!
     } {
         if {![dotlrn::is_package_mounted -package_key [package_key]]} {
-            set package_id [dotlrn::mount_package \
-                -package_key [package_key] \
-                -url [package_key] \
-                -directory_p t \
-            ]
 
-            dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
+            db_transaction {
+                set package_id [dotlrn::mount_package \
+                    -package_key [package_key] \
+                    -url [package_key] \
+                    -directory_p t \
+                ]
 
-            dotlrn_applet::mount \
-                -package_key [my_package_key] \
-                -url bm \
-                -pretty_name [get_pretty_name]
+                dotlrn_applet::add_applet_to_dotlrn \
+                    -applet_key [applet_key] \
+                    -package_key [my_package_key]
+
+                dotlrn_applet::mount \
+                    -package_key [my_package_key] \
+                    -url bm \
+                    -pretty_name [get_pretty_name]
+            }
+
         }
     }