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.231 -r1.284.2.232
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	15 Dec 2022 13:17:42 -0000	1.284.2.231
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	22 Dec 2022 02:51:37 -0000	1.284.2.232
@@ -6190,7 +6190,9 @@
     }
     # Validation happens after the value is retrieved.
     # To avoid errors in "clock scan", fix the year if necessary
-    if {![string is integer $year]} {set year 0}
+    if {![nsf::is integer $year]} {
+      set year 0
+    }
 
     foreach v [list year month day hour min sec] {
       if {[set $v] eq ""} {
@@ -6567,7 +6569,7 @@
       # Check, if the calendar_id can be determined
       #
       set calendar_id ""
-      if {[string is integer -strict ${:calendar}]} {
+      if {[nsf::is integer ${:calendar}]} {
         set calendar_id ${:calendar}
         if {[calendar::name $calendar_id] eq ""} {
           set calendar_id ""