Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.41.2.5 -r1.41.2.6
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	29 Sep 2013 20:39:29 -0000	1.41.2.5
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	30 Sep 2013 11:39:39 -0000	1.41.2.6
@@ -1071,7 +1071,7 @@
     # ordinary request, ad_conn is initialized
     set package_id [ad_conn package_id]
     ::xo::ConnectionContext require -package_id $package_id -url $url
-    if {[info command dotlrn_community::get_community_id] ne "" &&
+    if {[info commands dotlrn_community::get_community_id] ne "" &&
       $package_id ne ""} {
       my set community_id [dotlrn_community::get_community_id \
 			       -package_id $package_id]