Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.279.2.14 -r1.279.2.15
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	4 Sep 2014 14:17:43 -0000	1.279.2.14
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	16 Oct 2014 17:49:43 -0000	1.279.2.15
@@ -451,6 +451,16 @@
     #my proc destroy {} {my log "--P "; next}
   }
 
+  Package instproc reply_to_user {text} {
+    #
+    # When invoke_object is set (standard cases), we can implement a
+    # page-type or page specific caching behavior.
+    #
+    ns_set put [ns_conn outputheaders] "Cache-Control" \
+        "max-age=0, no-cache, no-store"
+    next
+  }
+
   Package ad_instproc get_parameter {{-check_query_parameter true} {-type ""} attribute {default ""}} {
     resolves configurable parameters according to the following precedence:
     (1) values specifically set per page {{set-parameter ...}}
@@ -779,6 +789,7 @@
     if {[catch {set page_or_package [my resolve_page [my set object] method]} errorMsg]} {
       return [my error_msg -template_file $error_template $errorMsg]
     }
+    my set invoke_object $page_or_package
     #my log "--r resolve_page => $page_or_package"
     if {$page_or_package ne ""} {
       if {[$page_or_package istype ::xowiki::FormPage]