Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	19 Jan 2019 08:46:58 -0000	1.49
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	27 Jan 2019 17:07:55 -0000	1.50
@@ -8,13 +8,12 @@
 
 namespace eval ::xowiki {}
 
-ad_proc -private ::xowiki::datasource { revision_id } {
+ad_proc -private ::xowiki::datasource { -nocleanup:boolean revision_id } {
   @param revision_id
 
   returns a datasource for the search package
 } {
   #ns_log notice "--sc ::xowiki::datasource called with revision_id = $revision_id"
-
   set page [::xowiki::Package instantiate_page_from_id -revision_id $revision_id -user_id 0]
 
   #ns_log notice "--sc ::xowiki::datasource $page [$page set publish_status]"
@@ -117,7 +116,7 @@
                                    guid "$item_id" \
                                    pubDate $pubDate] \
                  ]
-  if {[catch {::xo::at_cleanup} errorMsg]} {
+  if {!$nocleanup_p && [catch {::xo::at_cleanup} errorMsg]} {
     ns_log notice "cleanup in ::xowiki::datasource returned $errorMsg"
   }
   return $result