Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	17 Nov 2010 08:46:34 -0000	1.16
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	22 Nov 2010 12:19:19 -0000	1.17
@@ -283,7 +283,8 @@
     db_dml chg3 "insert into xowiki_form_page (xowiki_form_page_id) values ($revision_id)"
     
     db_dml chg4 "update acs_objects set object_type = 'content_item' where object_id = $item_id"
-    db_dml chg5 "update cr_items set content_type = '::xowiki::FormPage',  publish_status = 'ready', live_revision = $revision_id, latest_revision = $revision_id where item_id = $item_id"
+    db_dml chg5 "update acs_objects set object_type = '::xowiki::FormPage' where object_id = $revision_id"
+    db_dml chg6 "update cr_items set content_type = '::xowiki::FormPage',  publish_status = 'ready', live_revision = $revision_id, latest_revision = $revision_id where item_id = $item_id"
   }
 
   ad_proc -public -callback subsite::url -impl apm_package {
@@ -308,7 +309,7 @@
 # Some Date utilities
 #
 
-::xo::Module ::xowiki::utility -eval {
+::xo::Module create ::xowiki::utility -eval {
   my set age \
       [list \
            [expr {3600*24*365}] year years \