Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.94.2.4 -r1.94.2.5
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	17 Sep 2013 11:18:09 -0000	1.94.2.4
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Sep 2013 12:10:01 -0000	1.94.2.5
@@ -122,6 +122,13 @@
     ns_write $string
 }
 
+ad_proc -public apm_body_callback { string } {
+    This callback uses the document api to append more text to the stream.
+} {
+    append ::__apm_body $string
+}
+
+
 ad_proc -public apm_doc_body_callback { string } {
     This callback uses the document api to append more text to the stream.
 } {