Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	13 Jul 2002 00:13:10 -0000	1.24
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	13 Jul 2002 03:05:24 -0000	1.25
@@ -59,14 +59,20 @@
 	Add the static applet to dotlrn - for one-time init
 	Must be repeatable!
     } {
-        if {![dotlrn_applet::is_applet_mounted -url [package_key]]} {
-            dotlrn_applet::mount \
-                -package_key [package_key] \
-                -url [package_key] \
-                -pretty_name [get_pretty_name]
-        }
+        if {![dotlrn_applet::applet_exists_p -applet_key [applet_key]]} {
 
-        dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
+            db_transaction {
+                dotlrn_applet::mount \
+                    -package_key [package_key] \
+                    -url [package_key] \
+                    -pretty_name [get_pretty_name]
+
+                dotlrn_applet::add_applet_to_dotlrn \
+                    -applet_key [applet_key] \
+                    -package_key [my_package_key]
+            }
+
+        }
     }
 
     ad_proc -public remove_applet {