Index: openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl,v
diff -u -N -r1.13 -r1.13.2.1
--- openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl	13 Dec 2017 20:42:31 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl	7 May 2019 12:38:01 -0000	1.13.2.1
@@ -152,7 +152,7 @@
     $obj set_instance_vars_defaults
 
     # we use uplevel to handle -volatile correctly
-    set pos [:uplevel $obj configure $args]
+    set pos [:uplevel [list $obj configure $args]]
     if {"-init" ni $args} {
       incr pos -1
       $obj init {*}[lrange $args 0 $pos]