Index: openacs-4/packages/acs-api-browser/www/proc-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-browse.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-api-browser/www/proc-browse.tcl	7 Aug 2017 23:47:46 -0000	1.6
+++ openacs-4/packages/acs-api-browser/www/proc-browse.tcl	23 Apr 2018 16:13:13 -0000	1.7
@@ -1,6 +1,6 @@
 # acs-api-browser/www/proc-browse.tcl
 ad_page_contract {
-    returns a list of all the procedures present 
+    returns a list of all the procedures present
     in server memory
 
     @author Todd Nightingale
@@ -9,7 +9,7 @@
 
 } {
     { type "Public" }
-    { sort_by "file"} 
+    { sort_by "file"}
 } -properties {
     title:onevalue
     context:onevalue
@@ -19,15 +19,15 @@
 
 set dimensional {
     {type "Type" "Public" {
-	{All "All" ""}
-	{Public "Public" ""}
-	{Private "Private" ""}
-	{Deprecated "Deprecated" ""}
-}   }   
+        {All "All" ""}
+        {Public "Public" ""}
+        {Private "Private" ""}
+        {Deprecated "Deprecated" ""}}
+    }
     {sort_by "Sorted By" "file" {
         {file "File" ""}
-        {name "Name" ""}
-}   }   
+        {name "Name" ""}}
+    }
 }
 
 set title "$type Procedures"
@@ -39,27 +39,26 @@
     array set doc_elements [nsv_get api_proc_doc $proc]
 
     if { $type eq "All"} {
-	lappend matches [list $proc $doc_elements(script)] 
+        lappend matches [list $proc $doc_elements(script)]
     } elseif {$type eq "Deprecated" && $doc_elements(deprecated_p)} {
-	lappend matches [list $proc $doc_elements(script)] 
+        lappend matches [list $proc $doc_elements(script)]
     } elseif {$type eq "Private" && $doc_elements(protection) eq "private" } {
-	lappend matches [list $proc $doc_elements(script)] 
+        lappend matches [list $proc $doc_elements(script)]
     } elseif {$type eq "Public" && $doc_elements(protection) eq "public" } {
-	lappend matches [list $proc $doc_elements(script)] 
-    } 
+        lappend matches [list $proc $doc_elements(script)]
+    }
 }
 
 if {$sort_by eq "file"} {
-    set matches [lsort -command ::apidoc::ad_sort_by_second_string_proc $matches]    
+    set matches [lsort -command ::apidoc::ad_sort_by_second_string_proc $matches]
 } else {
     set matches [lsort -command ::apidoc::ad_sort_by_first_string_proc $matches]
 }
 
 multirow create proc_list file proc url
 
 foreach sublist $matches {
-    set proc [lindex $sublist 0]
-    set file [lindex $sublist 1]
+    lassign $sublist proc file
     set url [api_proc_url $proc]
     multirow append proc_list $file $proc $url
 }