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.39 -r1.71.2.40
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 May 2021 09:19:09 -0000	1.71.2.39
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	23 May 2021 17:56:50 -0000	1.71.2.40
@@ -464,6 +464,7 @@
         ad_page_contract_filter_proc_naturalnum
         ad_page_contract_filter_proc_negative_float
         ad_page_contract_filter_proc_nohtml
+        ad_page_contract_filter_proc_object_id
         ad_page_contract_filter_proc_printable
         ad_page_contract_filter_proc_sql_identifier
         ad_page_contract_filter_proc_token
@@ -481,7 +482,10 @@
         dict set cases naturalnum { "1" 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 {
+            "1" 1 "a" 0 "1.2" 0 "'" 0 -1 1 "0x0" 0
+            "-2147483648" 1 "2147483647" 1 "-2147483649" 0 "2147483648" 0
+        }
         dict set cases boolean {
             "1" 1 "-1" 0 "a" 0 "0" 1 "true" 1 "f" 1 "TRUE" 1 "ok" 0 "nok" 0
         }