Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -N -r1.512 -r1.513 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 9 Apr 2018 08:11:05 -0000 1.512 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 9 Apr 2018 08:14:23 -0000 1.513 @@ -4488,7 +4488,7 @@ :setCSSDefaults lassign [:field_names_from_form -form $form] form_vars field_names - :array unset __field_in_form + array unset :__field_in_form if {$form_vars} {foreach v $field_names {set :__field_in_form($v) 1}} set form_fields [:create_form_fields $field_names] :load_values_into_form_fields $form_fields @@ -4619,8 +4619,8 @@ Page instproc unset_temporary_instance_variables {} { # don't marshall/save/cache the following vars #my array unset __ia - :array unset __field_in_form - :array unset __field_needed + array unset :__field_in_form + array unset :__field_needed } Page instproc map_categories {category_ids} { Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -N -r1.347 -r1.348 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 9 Apr 2018 07:42:50 -0000 1.347 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 9 Apr 2018 08:14:23 -0000 1.348 @@ -2307,8 +2307,8 @@ FormPage instproc field_names {{-form ""}} { lassign [:field_names_from_form -form $form] form_vars needed_attributes #:msg "form=$form, form_vars=$form_vars needed_attributes=$needed_attributes" - :array unset __field_in_form - :array unset __field_needed + array unset :__field_in_form + array unset :__field_needed if {$form_vars} {foreach v $needed_attributes {set :__field_in_form($v) 1}} foreach v $needed_attributes {set :__field_needed($v) 1}