Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.131 -r1.132
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	11 Apr 2013 12:56:24 -0000	1.131
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	12 Aug 2013 19:46:50 -0000	1.132
@@ -781,7 +781,7 @@
     #
     set page_instance_form_atts [list]
     foreach {var _} [$data template_vars [$template set text]] {
-      if {[lsearch $dont_edit $var] == -1} {lappend page_instance_form_atts $var}
+      if {$var ni $dont_edit} {lappend page_instance_form_atts $var}
     }
     my set field_list [concat [my field_list_top] $page_instance_form_atts [my field_list_bottom]]