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.542.2.87 -r1.542.2.88
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Sep 2020 11:26:08 -0000	1.542.2.87
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Sep 2020 17:56:56 -0000	1.542.2.88
@@ -976,8 +976,7 @@
       if {$group_name ne ""} {
         :log "+++ create a new group group_name=${group_name}"
         set group_id [group::new -group_name $group_name]
-        set info(join_policy) [dict get $entry join_policy]
-        group::update -group_id $group_id -array info
+        group::update -group_id $group_id [list join_policy [dict get $entry join_policy]]
         ns_log notice "+++ reverse_party_map: we could add members [dict get $entry members] - but we don't"
         return $group_id
       } else {