Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.54.2.9 -r1.54.2.10
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Feb 2016 14:56:45 -0000	1.54.2.9
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	9 Feb 2016 13:20:41 -0000	1.54.2.10
@@ -931,14 +931,16 @@
     }
 
     if {$use_given_publish_date} {
-      my instvar publish_date
-      lappend __atts publish_date
-      lappend __vars publish_date
+      if {"publish_date" ni $__atts} {
+        my instvar publish_date
+        lappend __atts publish_date
+        lappend __vars publish_date
+      }
       set publish_date_flag [list -publish_date $publish_date]
     } else {
       set publish_date_flag ""
     }
-
+    
     ::xo::dc transaction {
       [my info class] instvar storage_type
       set revision_id [xo::dc nextval acs_object_id_seq]
@@ -1051,9 +1053,11 @@
     }
     
     if {$use_given_publish_date} {
-      my instvar publish_date
-      lappend __atts publish_date
-      lappend __vars publish_date
+      if {"publish_date" ni $__atts} {
+        my instvar publish_date
+        lappend __atts publish_date
+        lappend __vars publish_date
+      }
       set publish_date_flag [list -publish_date $publish_date]
     } else {
       set publish_date_flag ""