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 -N -r1.33 -r1.34
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	11 Mar 2011 17:49:48 -0000	1.33
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	3 Aug 2011 10:09:09 -0000	1.34
@@ -64,16 +64,20 @@
   set pubDate [::xo::db::tcl_date [$page set publish_date] tz]
   set link [$page detail_link]
 
-  return [list object_id $revision_id title $(title) \
-              content $(html) keywords $(keywords) \
-              storage_type text mime text/html \
-              syndication [list link [string map [list & "&"] $link] \
+  set result [list object_id $revision_id title $(title) \
+		  content $(html) keywords $(keywords) \
+		  storage_type text mime text/html \
+		  syndication [list link [string map [list & "&"] $link] \
                                description $description \
                                author [$page set creator] \
                                category "" \
                                guid "$item_id" \
                                pubDate $pubDate] \
-             ]
+		 ]
+  if {[catch {::xo::at_cleanup} errorMsg] {
+    ns_log notice "cleanup in ::xowiki::datasource returned $errorMsg"
+  }
+  return $result
 }
 
 ad_proc -private ::xowiki::url { revision_id} {