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.8 -r1.9
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	25 Jun 2008 17:03:04 -0000	1.8
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	12 Sep 2008 19:44:57 -0000	1.9
@@ -63,16 +63,16 @@
 set users [list]
 foreach element [throttle users active -full] {
   foreach {user_id pa timestamp hits smooth switches} $element break
-  if {[string first . $user_id] > 0} {
+  if {[string is integer $user_id]} {
+    acs_user::get -user_id $user_id -array user
+    set user_label "$user(last_name), $user(first_names)" 
+    set user_url [acs_community_member_url -user_id $user_id]
+  } else {
     if {$all} continue
     # it was an IP address
     set user_label $user_id
     set user_url ""
-  } else {
-    acs_user::get -user_id $user_id -array user
-    set user_label "$user(last_name), $user(first_names)" 
-    set user_url [acs_community_member_url -user_id $user_id]
-  }
+  } 
   set timestamp [lindex $smooth 2]
   set last_request_minutes [expr {[clock seconds]/60 - $timestamp}]