Index: openacs-4/packages/xolp/tcl/xolp-iri-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-iri-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/xolp/tcl/xolp-iri-procs.tcl	12 Apr 2019 12:09:58 -0000	1.4
+++ openacs-4/packages/xolp/tcl/xolp-iri-procs.tcl	27 Oct 2020 15:13:10 -0000	1.5
@@ -59,7 +59,7 @@
     set object_ids [:get_object_ids -iri $iri]
     if {$object_ids eq ""} {
       # Newly created object
-      set instance [:new_persistent_object -iri $iri {*}$args]
+      set instance [:new_persistent_object {*}$args -iri $iri]
       set object_id [$instance object_id]
     } else {
       # Reused object