Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.239.2.48 -r1.239.2.49
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	13 Aug 2020 10:04:58 -0000	1.239.2.48
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	20 Aug 2020 14:16:25 -0000	1.239.2.49
@@ -330,11 +330,11 @@
     if {[info exists source]} {
       set p [:resolve_page_name $source]
       if {$p ne ""} {
-        array set ia [$p set instance_attributes]
-        if {[info exists ia(pages)]} {
-          set pages $ia(pages)
-        } elseif {[info exists ia(ordered_pages)]} {
-          set ordered_pages $ia(ordered_pages)
+        set ia [$p set instance_attributes]
+        if {[dict exists $ia pages]} {
+          set pages [dict get $ia pages]
+        } elseif {[dict exists $ia ordered_pages]} {
+          set ordered_pages [dict get $ia ordered_pages]
         }
       }
     }