Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	18 May 2007 09:07:44 -0000	1.15
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	19 May 2007 09:39:33 -0000	1.16
@@ -160,9 +160,9 @@
                 where page_title != '' and revision_id = p.page_id"
 
       db_list delete_deprecated_types_from_ancient_versions \
-        [::xo::db::map "select content_item__delete(i.item_id) from cr_items i \
+	  "select [::xo::db::function_name content_item__delete(i.item_id)] from cr_items i \
                 where content_type in ('CrWikiPage', 'CrWikiPlainPage', \
-                'PageInstance', 'PageTemplate','CrNote', 'CrSubNote')"]
+                'PageInstance', 'PageTemplate','CrNote', 'CrSubNote')"
     }
 
     if {[apm_version_names_compare $from_version_name "0.30"] == -1 &&