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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	26 Jan 2004 15:39:46 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	29 Jan 2005 18:43:28 -0000	1.6
@@ -10,16 +10,24 @@
 
 namespace eval acs_object {}
 
+ad_proc -private acs_lookup_magic_object_no_cache { name } {
+    Non memoized version of acs_magic_object.
+
+    @return the magic object's object ID 
+
+    @see acs_magic_object
+} {
+    return [db_string magic_object_select {} ]
+}
+
 ad_proc -private acs_lookup_magic_object { name } {
     Non memoized version of acs_magic_object.
 
     @return the magic object's object ID 
 
     @see acs_magic_object
 } {
-    return [db_string magic_object_select {
-	select object_id from acs_magic_objects where name = :name
-    }]
+    return [util_memoize [list acs_lookup_magic_object_no_cache $name]]
 }
 
 ad_proc -public acs_magic_object { name } {