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.31 -r1.284.2.32
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Oct 2019 19:47:31 -0000	1.284.2.31
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	10 Oct 2019 10:28:23 -0000	1.284.2.32
@@ -132,11 +132,14 @@
     set value [:value]
     #:msg "[:info class] value=$value req=${:required} // ${:value} //"
 
-    if {${:required} && $value eq "" && ![:istype ::xowiki::formfield::hidden]} {
+    if {${:required}
+        && $value eq ""
+        && ![:istype ::xowiki::formfield::hidden]
+      } {
       return [_ acs-templating.Element_is_required [list label ${:label}]]
     }
     #
-    #:msg "++ ${:name} [:info class] validator=[:validator] ([llength [:validator]]) value=$value"
+    #:log "++ ${:name} [:info class] validator=[:validator] ([llength [:validator]]) value=$value"
     foreach validator [:validator] {
       set errorMsg ""
       #
@@ -145,18 +148,22 @@
       set success 1
       set validator_method check=$validator
       set proc_info [:procsearch $validator_method]
-      #:msg "++ ${:name}: field-level validator exists '$validator_method' ? [expr {$proc_info ne {}}]"
+      #:log "++ ${:name}: field-level validator exists '$validator_method' ? [expr {$proc_info ne {}}]"
       if {$proc_info ne ""} {
-        # we have a slot checker, call it
+        #
+        # We have a slot checker, call it.
+        #
         #:msg "++ call-field level validator $validator_method '$value'"
         set success [:validation_check $validator_method $value]
       }
       if {$success == 1} {
-        # the previous check was ok, check now for a validator on the
-        # object level
+        #
+        # The previous check was ok, check now for a validator on the
+        # object level.
+        #
         set validator_method validate=$validator
         set proc_info [$obj procsearch $validator_method]
-        #:msg "++ ${:name}: page-level validator exists ? [expr {$proc_info ne {}}]"
+        #:log "++ ${:name}: page-level validator exists ? [expr {$proc_info ne {}}]"
         if {$proc_info ne ""} {
           set success [$obj $validator_method $value]
           #:msg "++ call page-level validator $validator_method '$value' returns $success"