Index: openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	12 Sep 2022 14:21:50 -0000	1.7
+++ openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	25 Oct 2022 07:01:20 -0000	1.8
@@ -34,10 +34,8 @@
   ::xolp::EvaluationSchema ad_proc new_persistent_object {args} {
     Create new persistent object
   } {
-    array set argsarray $args
-    if {[llength [array get argsarray "-level_names"]] > 0
-        && [llength [array get argsarray "-positive_threshold_index"]] > 0
-        && (([llength $argsarray(-level_names)] - 1 ) <= $argsarray(-positive_threshold_index))} {
+    if {[dict exists $args "-level_names"] && [dict exists $args "-positive_threshold_index"]
+        && ( ( [llength [dict get $args "-level_names"]] - 1 ) <= [dict get $args "-positive_threshold_index"] )} {
       error "The positive_threshold_index must refer to a threshold index, i.e. it must not be larger than the list of levels minus one..."
     }
     next