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.3 -r1.14.2.4
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	18 May 2020 21:13:20 -0000	1.14.2.3
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	18 May 2020 21:20:20 -0000	1.14.2.4
@@ -39,7 +39,7 @@
 
     @error if no object exists with that magic name.
 } {
-    return [acs::per_thread_cache eval -key acs-tcl:acs_magic_object($name) {
+    return [acs::per_thread_cache eval -key acs-tcl.acs_magic_object($name) {
         acs_lookup_magic_object_no_cache $name
     }]
 }