Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v
diff -u -r1.14.2.7 -r1.14.2.8
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	15 Jul 2022 13:43:27 -0000	1.14.2.7
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	15 Jul 2022 13:58:40 -0000	1.14.2.8
@@ -186,6 +186,9 @@
 } {
     Returns whether an object is of a given object type.
 } {
+    if { ![string is integer -strict $object_id] } {
+        return 0
+    }
     return [acs::per_request_cache eval \
                 -key acs-tcl.acs_object.is_type_p($object_id,$object_types,$no_hierarchy_p) {
                     set object_types [ns_dbquotelist $object_types]