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 -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	10 Sep 2015 08:10:46 -0000	1.2.2.1
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	26 Apr 2016 07:25:29 -0000	1.2.2.2
@@ -38,10 +38,10 @@
 set c1 [string range $c [lindex $o 0]+1 end]
 set rows ""
 foreach line [lreverse [split $c1 \n]] {
-    if {$line eq ""} continue
-    lassign $line wday mon day hours tz year dash url time uid ip fmt
-    set userinfo [::xo::userid_link $uid]
-    set iplink "<a href='ip-info?ip=$ip'>$ip</a>"
+  if {$line eq ""} continue
+  lassign $line wday mon day hours tz year dash url time uid ip fmt
+  set userinfo [::xo::userid_link $uid]
+  set iplink [subst {<a href="[export_vars -base ip-info {ip}]">[ns_quotehtml $ip]</a>}]
     if {$time < 6000} {
 	set class info
     } elseif {$time < 10000} {