Index: openacs-4/packages/xowf/tcl/atjob-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/atjob-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/xowf/tcl/atjob-procs.tcl	5 Sep 2014 10:36:05 -0000	1.1.2.3
+++ openacs-4/packages/xowf/tcl/atjob-procs.tcl	10 Nov 2014 18:50:01 -0000	1.1.2.4
@@ -48,8 +48,7 @@
     set form_id [$class form_id -package_id $package_id -parent_id [[my object] parent_id]]
     if {$form_id != 0} {
       ::xo::db::CrClass get_instance_from_db -item_id $form_id
-      set instance_attributes [$form_id default_instance_attributes]
-      lappend instance_attributes cmd $cmd
+      set instance_attributes [dict merge [$form_id default_instance_attributes] [list cmd $cmd]]
       set name [::xowiki::autoname new -name [$form_id name] -parent_id $owner_id] 
       set f [::xowiki::FormPage new -destroy_on_cleanup \
                  -package_id $package_id \
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 -N -r1.472.2.22 -r1.472.2.23
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Sep 2014 13:41:06 -0000	1.472.2.22
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	10 Nov 2014 18:50:01 -0000	1.472.2.23
@@ -2206,8 +2206,7 @@
     {-publish_status production} 
     {-source_item_id ""}
   } {
-    set ia [my default_instance_attributes]
-    foreach {att value} $instance_attributes {lappend ia $att $value}
+    set ia [dict merge [my default_instance_attributes] $instance_attributes]
 
     if {$nls_language eq ""} {
       set nls_language [my query_parameter nls_language [my nls_language]]