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 }