Index: openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl	12 Apr 2019 12:35:21 -0000	1.7
+++ openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl	27 Oct 2020 15:13:10 -0000	1.8
@@ -194,10 +194,8 @@
         WHERE activity_version_id = [$old activity_version_id]
         RETURNING scd_valid_to + INTERVAL '0.000001' SECOND
       "]
-      array set argarray $args
-      set argarray(-iri) $iri
-      set argarray(-scd_valid_from) $scd_valid_to_new
-      set new [:new_persistent_object {*}[array get argarray]]
+      lappend args {*}[list -iri "$iri" -scd_valid_from "$scd_valid_to_new"]
+      set new [:new_persistent_object {*}$args]
     }
     return $new
   }