Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.107 -r1.108
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	1 May 2018 08:40:01 -0000	1.107
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 May 2018 15:33:34 -0000	1.108
@@ -72,7 +72,7 @@
   }
 
   Form instproc form_vars {} {
-    set vars {}
+    set vars [list]
     foreach varspec [:fields] {
       lappend vars [lindex [split [lindex $varspec 0] :] 0]
     }