Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	28 Sep 2007 11:51:18 -0000	1.25
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	14 Nov 2007 11:59:17 -0000	1.26
@@ -272,6 +272,12 @@
     my process_query_parameter
   }
 
+  ConnectionContext instproc cache {cmd} {
+    set key cache($cmd)
+    if {![my exists $key]} {my set $key [uplevel $cmd]}
+    return [my set $key]
+  }
+
   ConnectionContext ad_instproc permission {-object_id -privilege -party_id } {
     call ::permission::permission_p but avoid multiple calls in the same
     session through caching in the connection context