Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -N -r1.53 -r1.54
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	1 May 2018 09:06:57 -0000	1.53
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	8 May 2018 22:37:18 -0000	1.54
@@ -361,8 +361,7 @@
     foreach arg $effective_arg_list {
         if { [llength $arg] == 2 } {
             set default_p 1
-            set default_value [lindex $arg 1]
-            set arg [lindex $arg 0]
+            lassign $arg arg default_value
         } else {
             if { [llength $arg] != 1 } {
                 return -code error "Invalid element \"$arg\" in argument list"