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.122 -r1.123
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Jul 2008 18:22:29 -0000	1.122
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	11 Jul 2008 12:21:36 -0000	1.123
@@ -264,15 +264,18 @@
   }
 
 
-  Package instproc invoke {-method {-error_template error-template}} {
+  Package instproc invoke {-method {-error_template error-template} {-batch_mode 0}} {
     set page [my resolve_page [my set object] method]
     #my log "--r resolve_page returned $page"
     if {$page ne ""} {
       if {[$page procsearch $method] eq ""} {
 	return [my error_msg "Method <b>'$method'</b> is not defined for this object"]
       } else {
         #my msg "--invoke [my set object] id=$page method=$method" 
-	return [my call $page $method ""]
+        if {$batch_mode} {[my id] set __batch_mode 1}
+	set r [my call $page $method ""]
+        if {$batch_mode} {[my id] unset __batch_mode}
+        return $r
       }
     } else {
       # the requested page was not found, provide an error message and