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.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]]