Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	19 Oct 2006 10:47:41 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	12 Dec 2006 20:25:43 -0000	1.4
@@ -79,7 +79,7 @@
 				       [list ::template::my_hostname $pa]]]}
     set match 0
     foreach cat $peer_groups {
-      if {[string match $cat $peer]} {
+      if {[string match "$cat *" $peer]} {
 	incr peer_cat_count($cat)
 	set match 1
 	break