Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v
diff -u -N -r1.12.10.2 -r1.12.10.3
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	2 Sep 2014 18:04:07 -0000	1.12.10.2
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	9 Sep 2014 07:41:10 -0000	1.12.10.3
@@ -99,7 +99,7 @@
     ##############
     if {$doc_weight} {
         
-        set doc_string "[lindex $doc_elements(main) 0]"
+        set doc_string [lindex $doc_elements(main) 0]
         if {[info exists doc_elements(param)]} {
             foreach parameter $doc_elements(param) {
                 append doc_string " $parameter"
@@ -155,21 +155,17 @@
 
 foreach output $matches {
     incr counter
-    set proc  [lindex $output 0]    
-    set score [lindex $output 1]
-    set args  [lindex $output 2]
-    set url   [api_proc_url $proc]
+    lassign $output proc score args
+    set url [api_proc_url $proc]
     multirow append results $score $proc $args $url
 }
 
 multirow create deprecated_results score proc args url
 
 foreach output $deprecated_matches {
     incr counter
-    set proc  [lindex $output 0]    
-    set score [lindex $output 1]
-    set args  [lindex $output 2]
-    set url   [api_proc_url $proc]
+    lassign $output proc score args
+    set url [api_proc_url $proc]
     multirow append deprecated_results $score $proc $args $url
 }
 
@@ -182,10 +178,8 @@
 
 foreach output $private_matches {
     incr counter
-    set proc  [lindex $output 0]    
-    set score [lindex $output 1]
-    set args  [lindex $output 2]
-    set url   [api_proc_url $proc]
+    lassign $output proc score args
+    set url [api_proc_url $proc]
     multirow append private_results $score $proc $args $url
 }