Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -N -r1.35.2.3 -r1.35.2.4
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	28 Nov 2019 10:42:20 -0000	1.35.2.3
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	27 Sep 2020 17:56:56 -0000	1.35.2.4
@@ -477,12 +477,8 @@
 
     foreach object $objects {
         set group_id [apm_invoke_install_proc -type object_id -node $object]
-
-        group::get -group_id $group_id -array group
-        set group(join_policy) $join_policy
-        group::update -group_id $group_id -array group
+        group::update -group_id $group_id [list join_policy $join_policy]
     }
-    return
 }
 
 ad_proc -public install::xml::action::create-user { node } {