Index: openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl,v
diff -u -N -r1.12.2.2 -r1.12.2.3
--- openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	22 Nov 2019 18:41:34 -0000	1.12.2.2
+++ openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	22 Nov 2019 20:18:39 -0000	1.12.2.3
@@ -35,10 +35,20 @@
     }
 
     if { $node_id ne "" } {
+        #
         # The package is mounted, unmount it and delete it together
-        # with the site node
+        # with the site node.
+        #
         site_node::unmount -node_id $node_id
-        site_node::unmount_services -node_id $node_id
+        #
+        # Since we do not want to delete the potentially shared
+        # service packages, delete just the service nodes but not the
+        # packages behind it.
+        #
+        site_node::delete_service_nodes -node_id $node_id
+        #
+        # Finally, delete the site-nodes and the packages under it.
+        #
         site_node::delete -node_id $node_id \
             -delete_subnodes -delete_package
     } else {