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.1 -r1.14.2.2
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	3 Sep 2019 11:45:14 -0000	1.14.2.1
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	30 Mar 2020 19:21:00 -0000	1.14.2.2
@@ -20,7 +20,7 @@
     return [db_string magic_object_select {} ]
 }
 
-ad_proc -private acs_lookup_magic_object { name } {
+ad_proc -private -deprecated acs_lookup_magic_object { name } {
     Non memoized version of acs_magic_object.
 
     @return the magic object's object ID 
@@ -43,7 +43,7 @@
     if {[info exists $key]} {
         return [set $key]
     } else {
-        return [set $key [acs_lookup_magic_object $name]]
+        return [set $key [acs_lookup_magic_object_no_cache $name]]
     }
 }