Index: openacs-4/packages/xowiki/tcl/import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v
diff -u -r1.27.2.4 -r1.27.2.5
--- openacs-4/packages/xowiki/tcl/import-procs.tcl	13 Mar 2014 13:00:01 -0000	1.27.2.4
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl	13 Mar 2014 17:28:16 -0000	1.27.2.5
@@ -321,10 +321,10 @@
     return [array names items]
   }
 
-  exporter proc marshall_all {item_ids} {
+  exporter proc marshall_all {{-mode export} item_ids} {
     set content ""
     foreach item_id $item_ids {
-      if {[catch {set obj [$item_id marshall]} errorMsg]} {
+      if {[catch {set obj [$item_id marshall -mode $mode]} errorMsg]} {
         ns_log error "Error while exporting $item_id [$item_id name]\n$errorMsg\n$::errorInfo"
         error $errorMsg
       } else {