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.23 -r1.24
--- openacs-4/packages/acs-developer-support/www/request-info.tcl	8 May 2018 22:37:18 -0000	1.23
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl	16 May 2018 22:04:59 -0000	1.24
@@ -141,7 +141,8 @@
 		}
 	    }
 	    registered_proc {
-        lassign $info . . proc args
+        set proc [lindex $info 2]
+        set args [lindex $info 3]
 		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"
@@ -224,7 +225,7 @@
 	} else {
 	    set statement_pool ""
 	}
-        
+
 	if { $command eq "gethandle" } {
 	    # Remember which handle was acquired from which pool.
 	    set statement_pool $sql
@@ -238,7 +239,7 @@
 	    } else {
 		set value "$statement_name: "
 	    }
-            
+
             # Remove extra whitespace before query
             set min_whitespace -1
             foreach line [split $sql \n] {
@@ -251,7 +252,7 @@
                     }
                 }
             }
-            
+
             if { $min_whitespace > 0 } {
                 set new_sql {}
                 foreach line [split $sql \n] {
@@ -302,7 +303,7 @@
                 hide_p t
             }
         }
-            
+
 }
 
 # Profiling information
@@ -349,7 +350,7 @@
                 append file_links " x"
                 set size -
             }
-        } else { 
+        } else {
             set size {}
         }