Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.96 -r1.97
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	22 Nov 2007 10:32:57 -0000	1.96
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	22 Nov 2007 13:07:31 -0000	1.97
@@ -383,9 +383,12 @@
         # get the page from the CR with all variables
         set p [::xo::db::CrClass get_instance_from_db -item_id $item_id]
         $p destroy_on_cleanup
-        # copy all variables from the prototype page 
+        # copy all scalar variables from the prototype page 
         # into the instantiated page 
-        foreach v [$page info vars] {$p set $v [$page set $v]}
+        foreach v [$page info vars] {
+          if {[$page array exists $v]} continue ;# don't copy arrays
+          $p set $v [$page set $v]
+        }
         $p save
         set page $p
       }
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.190 -r1.191
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	22 Nov 2007 10:32:57 -0000	1.190
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	22 Nov 2007 13:07:31 -0000	1.191
@@ -790,10 +790,11 @@
       [my info class] instvar $__v
     }
     set __ignorelist [list __v __ignorelist __varlist __template_variables__ \
-                          text item_id content lang_links long_text_slots]
+                          text item_id content lang_links]
     set __varlist [list]
     set __template_variables__ "<ul>\n"
     foreach __v [lsort [info vars]] {
+      if {[array exists $__v]} continue ;# don't report  arrays
       if {[lsearch -exact $__ignorelist $__v]>-1} continue
       lappend __varlist $__v
       append __template_variables__ "<li><b>$__v:</b> '[set $__v]'\n"