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 -N -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	7 Aug 2017 23:47:59 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	3 Mar 2018 16:52:44 -0000	1.13
@@ -39,7 +39,12 @@
 
     @error if no object exists with that magic name.
 } {
-    return [util_memoize [list acs_lookup_magic_object $name]]
+    set key ::acs::magic_object($name)
+    if {[info exists $key]} {
+        return [set $key]
+    } else {
+        return [set $key [acs_lookup_magic_object $name]]
+    }
 }
 
 ad_proc -public acs_object_name { object_id } {