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.10 -r1.11
--- openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl	8 Jun 2021 16:11:14 -0000	1.10
+++ openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl	25 Oct 2022 05:45:55 -0000	1.11
@@ -83,7 +83,9 @@
     Check whether or not an activity with this iri is already stored in the data base.
     @return Boolean
   } {
-    return [::xo::dc get_value select_object "SELECT DISTINCT 1 FROM xolp_activity_dimension WHERE iri = :iri" 0]
+    return [::xo::dc 0or1row select_object {
+      SELECT 1 FROM xolp_activity_dimension WHERE iri = :iri fetch first 1 rows only
+    }]
   }
 
   ::xolp::Activity ad_proc current {