Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	25 Jan 2018 12:36:53 -0000	1.43
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	7 Apr 2018 08:59:39 -0000	1.44
@@ -43,7 +43,7 @@
     if {[apm_num_instances $portal_package_key] == 0} {
         ns_log notice "dotlrn-init: $portal_package_key being automounted at /$portal_mount_point"
         dotlrn::mount_package \
-            -parent_node_id [site_node_id "/"] \
+            -parent_node_id [site_node::get_node_id -url /] \
             -package_key $portal_package_key \
             -url $portal_mount_point \
             -directory_p t
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.80 -r1.81
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	27 Mar 2018 14:32:16 -0000	1.80
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	7 Apr 2018 08:59:39 -0000	1.81
@@ -147,11 +147,12 @@
         just a nice wrapper for the dotrn-*-procs so they don't have to 
         deal with site_nodes and apm directly.
     } {
+        set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
         db_transaction {
-            # site node del package instance
-            site_node_delete_package_instance \
-                -package_id $package_id \
-                -node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+            site_node::unmount -node_id $node_id
+            apm_package_instance_delete $package_id
+        } on_error {
+             site_node::update_cache -node_id $node_id
         }
     }