Index: openacs-4/packages/xotcl-request-monitor/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/index.tcl,v
diff -u -r1.22 -r1.22.2.1
--- openacs-4/packages/xotcl-request-monitor/www/index.tcl	13 Apr 2013 09:14:23 -0000	1.22
+++ openacs-4/packages/xotcl-request-monitor/www/index.tcl	30 Sep 2013 11:39:39 -0000	1.22.2.1
@@ -265,7 +265,7 @@
 
 array set thread_avgs [throttle thread_avgs]
 
-if {[info command ::tlf::system_activity] ne ""} {
+if {[info commands ::tlf::system_activity] ne ""} {
   array set server_stats [::tlf::system_activity]
   set current_exercise_activity $server_stats(activity)
   set current_system_activity "$server_stats(activity) exercises last 15 mins, "
@@ -284,7 +284,7 @@
 set activeIP24      [lindex $active24 0]
 set activeTotal24   [expr {$authUsers24 + $activeIP24}]
 
-if {[info command ::dotlrn_community::get_community_id] ne ""} {
+if {[info commands ::dotlrn_community::get_community_id] ne ""} {
   set nr [throttle users nr_active_communities]
   set active_community_string "in <a href='./active-communities'>$nr communities</a> "
 } else {