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