Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.2.2.4 -r1.2.2.5
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	30 Nov 2016 08:16:17 -0000	1.2.2.4
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	14 Dec 2016 08:05:12 -0000	1.2.2.5
@@ -13,12 +13,13 @@
 }
 
 proc ::xo::userid_link {uid} {
-    if {[string first . $uid] > -1} {
-       set userinfo 0
-    } else {
-       set userinfo "<a href='/acs-admin/users/one?user_id=$uid'>$uid</a>"
-    }
-    return $userinfo
+  if {![string is integer -strict $uid]} {
+    set userinfo 0
+  } else {
+    set user_url [acs_community_member_admin_url -user_id $uid]
+    set userinfo "<a href='$user_url'>$uid</a>"
+  }
+  return $userinfo
 }
 proc ::xo::regsub_eval {re string cmd {prefix ""}} {
     set map { \" \\\" \[ \\[ \] \\] \$ \\$ \\ \\\\}