Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.290 -r1.291
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Oct 2008 21:37:40 -0000	1.290
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	4 Oct 2008 19:15:45 -0000	1.291
@@ -595,7 +595,7 @@
   Page instproc copy_content_vars {-from_object:required} {
     array set excluded_var {
       folder_id 1 package_id 1 absolute_links 1 lang_links 1 modifying_user 1
-      publish_status 1 item_id 1 revision_id 1 last_modified 1 parent_id 1
+      publish_status 1 item_id 1 revision_id 1 last_modified 1
     }
     foreach var [$from_object info vars] {
       # don't copy vars starting with "__"
@@ -1681,7 +1681,7 @@
     array set __ia [my set instance_attributes]
 
     foreach var [array names __ia] {
-      my log "-- set $var [list $__ia($var)]"
+      #my log "-- set $var [list $__ia($var)]"
       # TODO: just for the lookup, whether a field is a richt text field,
       # there should be a more efficient and easier way...
       if {[string match "richtext*" [my get_field_type $var text]]} {