Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	28 Sep 2018 11:44:23 -0000	1.30
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	1 Oct 2018 13:18:09 -0000	1.31
@@ -18,10 +18,8 @@
       set xowiki_package_id [ad_conn package_id]
     } else {
       set main_node_id [site_node::get_node_id -url "/"]
-      set xowiki_package_id [lindex [site_node::get_children -all \
-                                         -package_key xowiki \
-                                         -element object_id \
-                                         -node_id $main_node_id] 0]
+      set xowiki_package_id [lindex [apm_package_ids_from_key \
+                                         -package_key xowiki -mounted] 0]
     }
 
     if {![info exists package_id]} {