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 -r1.284.2.250 -r1.284.2.251
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	31 May 2024 11:34:11 -0000	1.284.2.250
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	14 Jun 2024 12:28:07 -0000	1.284.2.251
@@ -2924,8 +2924,10 @@
     set :widget_type text
   }
   range instproc render_input {} {
-    ::html::input [:get_attributes type id name value disabled {CSSclass class} min max step value \
-                       autofocus autocomplete formnovalidate multiple pattern placeholder readonly required] {}
+    set atts [:get_attributes type id name value {CSSclass class} min max step value \
+                  autofocus autocomplete formnovalidate multiple pattern placeholder readonly required]
+    if {[:is_disabled]} {lappend atts {*}"disabled 1"}
+    ::html::input $atts {}
     if {${:with_output}} {
       set :for ${:id}
       set :outputID ${:id}-output