Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.284.2.220 -r1.284.2.221
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 Aug 2022 14:53:23 -0000	1.284.2.220
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Aug 2022 09:53:31 -0000	1.284.2.221
@@ -157,7 +157,7 @@
     {hide_value false}
     {inline false}
     {mode edit}
-    {disabled}
+    {disabled 0}
     {disabled_as_div}
     {show_raw_value}
 
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.368.2.129 -r1.368.2.130
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	21 Aug 2022 16:46:07 -0000	1.368.2.129
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	25 Aug 2022 09:53:32 -0000	1.368.2.130
@@ -2627,7 +2627,6 @@
   } {
     ::xo::require_html_procs
 
-    #array set __ia ${:instance_attributes}
     foreach f $form_fields {
       set att [$f name]
       # just handle fields of the form entry
@@ -2701,7 +2700,7 @@
       switch -glob -- $att {
         __category_* {
           set f [:lookup_form_field -name $att $form_fields]
-          if {![$f exists disabled]} {
+          if {![$f disabled]} {
             set value [$f value [$cc form_parameter $att]]
             foreach v $value {lappend category_ids $v}
           }
@@ -2715,8 +2714,8 @@
           #
           # CR fields
           #
-          set f     [:lookup_form_field -name $att $form_fields]
-          if {![$f exists disabled]} {
+          set f [:lookup_form_field -name $att $form_fields]
+          if {![$f disabled]} {
             set value [$f value [string trim [$cc form_parameter $att]]]
             set varname [string range $att 1 end]
             if {[string first . $att] == -1} {
@@ -2733,7 +2732,7 @@
             # File related fields.
             #
             set f [:lookup_form_field -name $file $form_fields]
-            if {![$f exists disabled]} {
+            if {![$f disabled]} {
               $f $field [string trim [$cc form_parameter $att]]
             }
             #:msg "[$f name]: [list $f $field [string trim [$cc form_parameter $att]]]"
@@ -2742,11 +2741,11 @@
             #
             # Fields related to instance variables.
             #
-            #:log "===== Page get_form_data calls lookup_form_field -name $att"
-            set f     [:lookup_form_field -name $att $form_fields]
-            if {![$f exists disabled]} {
+            :log "===== Page get_form_data calls lookup_form_field -name $att"
+            set f [:lookup_form_field -name $att $form_fields]
+            if {![$f disabled]} {
               set value [$f value [string trim [$cc form_parameter $att]]]
-              #:msg "value of $att ($f) = '$value' exists=[$cc exists_form_parameter $att]"
+              #:log "===== Page get_form_data calls lookup_form_field -name $att -> $f -> '$value'"              
               if {[string first . $att] == -1} {
                 #
                 # If the field is not a compound field, put the received
@@ -2802,7 +2801,7 @@
 
       if {![info exists processed($att)]
           && ![$f exists is_repeat_template]
-          && ![$f exists disabled]
+          && ![$f disabled]
         } {
         #ns_log notice "==== form field $att [$f info class] not yet processed"
 
@@ -3143,7 +3142,7 @@
 
   FormPage instproc form_fields_sanity_check {form_fields} {
     foreach f $form_fields {
-      if {[$f exists disabled]} {
+      if {[$f disabled]} {
         # don't mark disabled fields as required
         if {[$f required]} {
           $f required false