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.368.2.37 -r1.368.2.38
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	1 Oct 2019 09:00:03 -0000	1.368.2.37
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	1 Oct 2019 19:54:09 -0000	1.368.2.38
@@ -2762,7 +2762,7 @@
   }
 
   Page instproc field_names {{-form ""}} {
-    array set dont_modify [list item_id 1 revision_id 1 object_id 1 object_title 1 page_id 1 name 1]
+    array set dont_modify {item_id 1 revision_id 1 object_id 1 object_title 1 page_id 1 name 1}
     set field_names [list]
     foreach field_name [[:info class] array names db_slot] {
       if {[info exists dont_modify($field_name)]} continue