Index: openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl,v
diff -u -r1.3.10.2 -r1.3.10.3
--- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	29 Sep 2013 19:23:18 -0000	1.3.10.2
+++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl	29 Sep 2013 19:28:13 -0000	1.3.10.3
@@ -1282,7 +1282,7 @@
 			[lindex [lindex $firstpos 0] $i-1]	\
 			[lindex [lindex $lastpos 0] $i-1]
 	    	foreach pos [lindex [lindex [lindex $lastpos 0] $i-1] 1] {
-		    eval lappend var($pos) [lindex [lindex [lindex $firstpos 0] $i] 1]
+		    lappend var($pos) {*}[lindex [lindex [lindex $firstpos 0] $i] 1]
 		    set var($pos) [makeSet $var($pos)]
 	    	}
 	    }
@@ -1306,7 +1306,7 @@
 	}
 	* {
 	    foreach pos [lindex $lastpos 1] {
-		eval lappend var($pos) [lindex $firstpos 1]
+		lappend var($pos) {*}[lindex $firstpos 1]
 		set var($pos) [makeSet $var($pos)]
 	    }
 	}
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.132.2.1 -r1.132.2.2
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	17 Sep 2013 17:49:24 -0000	1.132.2.1
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	29 Sep 2013 19:30:13 -0000	1.132.2.2
@@ -81,7 +81,7 @@
           set __newspec [list $__wspec]
           foreach __e [lrange $__spec 1 end] {
             lassign $__e __name __value
-            if {$__name eq "options"} {eval lappend __value [my folderspec]}
+            if {$__name eq "options"} {lappend __value {*}[my folderspec]}
             lappend __newspec [list $__name $__value]
           }
           #my msg "--F rewritten spec is '$__newspec'"