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 -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]