Index: openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl 17 Apr 2018 14:47:02 -0000 1.12 +++ openacs-4/packages/ecommerce/www/process-order-quantity-shipping.tcl 25 Apr 2018 19:47:47 -0000 1.13 @@ -35,7 +35,7 @@ if {[info exists quantity]} { set arraynames [array names quantity] - set fullarraynames [list] + set fullarraynames {} foreach arrayname $arraynames { set quantity.$arrayname $quantity($arrayname) lappend fullarraynames "quantity.$arrayname"