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.132.2.3 -r1.132.2.4
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Oct 2013 11:26:21 -0000	1.132.2.3
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	7 Nov 2013 11:52:26 -0000	1.132.2.4
@@ -737,21 +737,24 @@
     my log "-- "
     my instvar page_instance_form_atts data
     next
-    array set __ia [$data set instance_attributes]
+
+    set __ia [$data set instance_attributes]
     foreach var $page_instance_form_atts {
-      if {[info exists __ia($var)]} {my var $var [list $__ia($var)]}
+      if {[dict exists $__ia $var]} {my var $var [list [dict get $__ia $var]]}
     }
   }
 
 
   PageInstanceEditForm instproc edit_data {} {
     my log "-- "
     my instvar page_instance_form_atts data
-    array set __ia [$data set instance_attributes]
+
+    set __ia [$data set instance_attributes]
     foreach var $page_instance_form_atts {
-      set __ia($var) [my var $var]
+      dict set __ia $var [my var $var]
     }
-    $data set instance_attributes [array get __ia]
+    $data set instance_attributes $__ia
+
     set item_id [next]
     my log "-- edit_data item_id=$item_id"
     return $item_id