Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.139 -r1.140
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	8 Oct 2008 17:37:46 -0000	1.139
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	8 Oct 2008 17:48:29 -0000	1.140
@@ -620,7 +620,6 @@
       } else {
         # get the page from the CR with all variables
         set p [::xo::db::CrClass get_instance_from_db -item_id $item_id]
-        $p destroy_on_cleanup
         # copy all scalar variables from the prototype page 
         # into the instantiated page 
         foreach v [$page info vars] {
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.107 -r1.108
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	6 Oct 2008 12:06:56 -0000	1.107
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	8 Oct 2008 17:48:29 -0000	1.108
@@ -692,7 +692,6 @@
       set page_template_id [$data set page_template]
     }
     set template [::xo::db::CrClass get_instance_from_db -item_id $page_template_id]
-    $template destroy_on_cleanup
     set dont_edit [concat [[$data info class] array names db_slot] \
                        [::xo::db::CrClass set common_query_atts]]
 
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.187 -r1.188
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	8 Oct 2008 10:54:57 -0000	1.187
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	8 Oct 2008 17:48:29 -0000	1.188
@@ -1636,7 +1636,6 @@
     set source_item_id [my query_parameter source_item_id ""]
     if {$source_item_id ne ""} {
       set source [FormPage get_instance_from_db -item_id $source_item_id]
-      $source destroy_on_cleanup
       $f copy_content_vars -from_object $source
       #$f set __autoname_prefix "[my name] - "
       $f set name ""