Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.73.2.4 -r1.73.2.5
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	3 Sep 2014 14:33:29 -0000	1.73.2.4
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	3 Sep 2014 19:03:12 -0000	1.73.2.5
@@ -48,10 +48,8 @@
         ::xo::db::sql::content_item delete -item_id $root_folder_id
       }
     }
-
-    set instance_name [db_string get_instance_name {
-      select instance_name from apm_packages where package_id = :package_id
-    }]
+   
+    set instance_name [apm_instance_name_from_id $package_id]
     
     ::xo::clusterwide ns_cache flush xotcl_object_type_cache package_id-$instance_name
     ::xo::clusterwide ns_cache flush xotcl_object_type_cache -100-$instance_name