Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.71.2.45 -r1.71.2.46
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	2 Jul 2021 12:02:52 -0000	1.71.2.45
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	19 Oct 2021 09:07:32 -0000	1.71.2.46
@@ -479,7 +479,7 @@
         Test ad_page_contract_filters
     } {
         dict set cases integer { "1" 1 "a" 0 "1.2" 0 "'" 0 }
-        dict set cases naturalnum { "1" 1 "-1" 0 "a" 0 "1.2" 0 "'" 0 }
+        dict set cases naturalnum { "1" 1 0 1 "-1" 0 "a" 0 "1.2" 0 "'" 0 }
         dict set cases float { "1" 1 "1.0" 1 "a" 0 "-1.0" 1 "1,0" 0 }
         dict set cases negative_float { "1" 1 "-1.0" 1 "-a" 0 "-1,0" 0 }
         dict set cases object_id {