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.171 -r1.284.2.172
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	6 Sep 2021 16:46:07 -0000	1.284.2.171
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	17 Sep 2021 19:33:56 -0000	1.284.2.172
@@ -700,7 +700,7 @@
 
   FormField ad_instproc dict_to_fc {
     -name
-    -type:required
+    -type
     dict
   } {
 
@@ -712,10 +712,15 @@
     allowed, etc.
 
     @param name optional form-field name
-    @param type required type of the form-field
+    @param type type of the form-field; if not specified,
+           take it from key "_type" of the dict
     @param dict dict to be converted.
   } {
     set result [expr {[info exists name] ? "$name:" : ""}]
+    if {![info exists type]} {
+      set type [dict get $dict _type]
+      dict unset dict _type
+    }
     set list $type
     foreach {key value} $dict {
       lappend list $key=[::xowiki::formfield::FormField fc_encode $value]