Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.33 -r1.148.2.34
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 Feb 2021 10:12:40 -0000	1.148.2.33
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Feb 2021 10:38:15 -0000	1.148.2.34
@@ -1116,9 +1116,9 @@
 
     @return 0 or 1
   } {
-    return [::xo::dc get_value select_object {
+    return [::xo::dc 0or1row -prepare integer select_object {
       select 1 from acs_objects where object_id = :id
-    } 0]
+    }]
   }
 
   ::xo::db::Class ad_proc delete {
@@ -1183,9 +1183,9 @@
 
     @return 0 or 1
   } {
-    return [::xo::dc get_value check_type {
+    return [::xo::dc 0or1row check_type {
       select 1 from acs_object_types where object_type = :object_type
-    } 0]
+    }]
   }
 
   ::xo::db::Class ad_proc drop_type {