Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.81 -r1.148.2.82
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Mar 2023 18:30:55 -0000	1.148.2.81
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	17 Mar 2023 16:02:41 -0000	1.148.2.82
@@ -2912,9 +2912,15 @@
     -object_type
     -attribute_name
   } {
-    acs::per_request_cache eval -key xotcl-core.db_attribute_defined-$object_type-$attribute_name {
-      ::xo::dc 0or1row check_att {select 1 from acs_attributes where
-        attribute_name = :attribute_name and object_type = :object_type}
+    #
+    # One could try caching this, but be aware that this also requires
+    # proper flushing, this value cannot be considered immutable, not
+    # even per request.
+    #
+    ::xo::dc 0or1row -prepare text,text check_att {
+      select 1 from acs_attributes
+      where attribute_name = :attribute_name
+        and object_type = :object_type
     }
   }