Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -N -r1.46.2.8 -r1.46.2.9
--- openacs-4/packages/xowiki/www/admin/test.tcl	19 Sep 2019 09:32:25 -0000	1.46.2.8
+++ openacs-4/packages/xowiki/www/admin/test.tcl	19 Sep 2019 11:28:26 -0000	1.46.2.9
@@ -102,11 +102,7 @@
   if {[dict get $info package_id] ne ""} {
     site_node::unmount -node_id [dict get $info node_id]
   }
-  site_node::delete -node_id [dict get $info node_id]
-  # remove the package instance
-  apm_package_instance_delete [dict get $info object_id]
-
-  #test code [array get info]
+  site_node::delete -node_id [dict get $info node_id] -delete_package
 }
 
 ? {site_node::exists_p -url /$instance_name} 0 \