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 -N -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	8 Aug 2022 11:01:07 -0000	1.15.2.1
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	8 Aug 2022 14:48:48 -0000	1.15.2.2
@@ -99,14 +99,14 @@
     {-supertype:required}
     {-subtype:required}
 } {
-    Returns true if subtype is equal to, or a subtype of, supertype.
+    Returns true if subtype is equal to, or a subtype of supertype.
 
     @author Lee Denison (lee@thaum.net)
 } {
-    set supertypes [object_type::supertypes]
-    append supertypes $subtype
+    set supertypes [acs_object_type::supertypes -subtype $subtype]
+    lappend supertypes $subtype
 
-    return [expr {[lsearch $supertypes $supertype] >= 0}]
+    return [expr {$supertype in $supertypes}]
 }
 
 ad_proc -private acs_object_type::supertypes {
@@ -122,9 +122,9 @@
     } else {
         return [acs::per_thread_cache eval \
                     -key acs-tcl.acs_object_type.supertypes($subtype) {
-                        util_memoize [list acs_object_type::supertypes \
-                                          -subtype $subtype \
-                                          -no_cache]
+                        acs_object_type::supertypes \
+                            -subtype $subtype \
+                            -no_cache
                     }]
     }
 }