Index: openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	11 Sep 2002 11:52:49 -0000	1.26
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	13 Sep 2002 11:24:18 -0000	1.27
@@ -485,7 +485,7 @@
     set acs_file_path [ad_make_relative_path $file_tag]
     set queryname_root [db_qd_internal_get_queryname_root $acs_file_path]
 
-    db_qd_log Debug "db_qd_internal_load_queries: \n file: [lindex $parsing_state 4] \n default_rdbms: [lindex parsing_state 3] \n queryname_root: $queryname_root"
+    db_qd_log Debug "db_qd_internal_load_queries: \n file: [lindex $parsing_state 4] \n default_rdbms: [lindex $parsing_state 3] \n queryname_root: $queryname_root"
 
     while {1} {
 	set result [db_qd_internal_parse_one_query $parsing_state]
Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	21 Aug 2002 18:15:37 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	13 Sep 2002 11:24:19 -0000	1.5
@@ -98,7 +98,7 @@
 		if { ![string equal $value ""] } {
                     set have_values 1
                 }
-		set fractional_part_format [lindex format 3]
+		set fractional_part_format [lindex $format 3]
 		for { set j [string length $value] } { $j < $fractional_part_format } { set j [expr $j + 1] } {
 		    append $value 0
 		}
Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	31 Aug 2002 02:01:41 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	13 Sep 2002 11:24:19 -0000	1.6
@@ -273,7 +273,7 @@
     used to compare two different elements in a list of parsed data for public or private procs
 } {
 
-    return [string compare -nocase [lindex [lindex [lindex element2 1] 0] 1] [lindex [lindex [lindex element1 1] 0] 1]]
+    return [string compare -nocase [lindex [lindex [lindex $element2 1] 0] 1] [lindex [lindex [lindex $element1 1] 0] 1]]
 
 }
 
Index: openacs-4/packages/ecommerce/www/admin/orders/items-void-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/items-void-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/orders/items-void-2.tcl	26 May 2002 04:36:50 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/orders/items-void-2.tcl	13 Sep 2002 11:24:20 -0000	1.3
@@ -61,7 +61,7 @@
 	# Make sure they checked at least one checkbox
 
 	set item_id_list $item_id
-	if { [llength $item_id_list] == 1 && [lindex 0 $item_id_list] == 0 } {
+	if { [llength $item_id_list] == 1 && [lindex $item_id_list 0] == 0 } {
 	    ad_return_complaint 1 "<li>You didn't check off any items.</li>"
 	    return
 	}