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.98 -r1.368.2.99
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	28 Sep 2021 20:15:10 -0000	1.368.2.98
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Dec 2021 17:29:32 -0000	1.368.2.99
@@ -2280,6 +2280,7 @@
     } else {
       set default ""
     }
+    #ns_log notice "... create $name with spec '[join $spec_list ,]'"
     set f [::xowiki::formfield::FormField new -name $name \
                -id        [::xowiki::Includelet html_id F.${:name}.$name] \
                -locale    $nls_language \
@@ -2319,13 +2320,13 @@
       set short_spec ""
     } else {
       set short_spec [:get_short_spec $name]
-      # :msg "[self] get_short_spec $name returns <$short_spec>"
+      #:msg "[self] get_short_spec $name returns <$short_spec>"
     }
 
     #:log "create form-field '$name', short_spec '$short_spec' spec '$spec', slot=$slot"
     set spec_list [list]
-    if {$spec ne ""}       {lappend spec_list $spec}
     if {$short_spec ne ""} {lappend spec_list $short_spec}
+    if {$spec ne ""}       {lappend spec_list $spec}
     #:log "$name: short_spec '$short_spec', spec_list 1 = '[join $spec_list ,]'"
     set f [next \
                -name $name \