Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl	26 Apr 2018 08:56:38 -0000	1.24
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl	9 May 2018 15:33:30 -0000	1.25
@@ -158,7 +158,7 @@
 		    set lowest_price [lindex [ec_lowest_price_and_price_name_for_an_item $product_id $user_id $offer_code] 0]
 		}
 	    }
-            set option_list {}
+            set option_list [list]
 	    if { ![empty_string_p $color_choice] } {
 	        lappend option_list "Color: $color_choice"
 	    }
@@ -445,7 +445,7 @@
     select state_name, abbrev from us_states order by state_name
 }] 0 {"Select a state" ""}]
 
-set validate {}
+set validate [list]
 
 ad_form -name checkout -export {billing_address_id shipping_address_id user_id participant_id} -form {
     {bill_to_first_names:text {label "First name(s)"} {html {size 40}}}
@@ -535,7 +535,7 @@
 }
 
 set method_count 0
-set new_payment_methods {}
+set new_payment_methods [list]
 foreach payment_method [split $payment_methods] {
     set _payment_method [split $payment_method :]
     if { [llength $_payment_method] == 2 } {