Index: openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	15 Jun 2018 08:30:12 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	15 Jun 2018 08:35:08 -0000	1.14
@@ -95,22 +95,6 @@
     } -column_array row
 }
 
-ad_proc -private acs_object_type::acs_object_instance_of {
-    {-object_id:required}
-    {-type:required}
-} {
-    Returns true if the specified object_id is a subtype of the specified type.
-    This is an inclusive check.
-
-    @author Lee Denison (lee@thaum.net)
-} {
-    acs_object::get -object_id $object_id -array obj
-
-    return [acs_object_type::supertype \
-        -supertype $type \
-        -subtype $obj(object_type)]
-}
-
 ad_proc -private acs_object_type::supertype {
     {-supertype:required}
     {-subtype:required}