Index: openacs-4/packages/acs-developer-support/www/request-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-developer-support/www/request-info.tcl	7 Aug 2017 23:47:56 -0000	1.22
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl	8 May 2018 22:37:18 -0000	1.23
@@ -141,8 +141,7 @@
 		}
 	    }
 	    registered_proc {
-		set proc [lindex $info 2]
-		set args [lindex $info 3]
+        lassign $info . . proc args
 		append body "Called registered procedure: <b>$proc</b> [ns_quotehtml $args] for ($method $path) - $duration\n"
 		if {$action eq "error"} {
 		    append body "<ul><li>returned error: <pre>[ns_quotehtml $error]</pre></ul>\n"