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 -r1.148.2.11 -r1.148.2.12
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Jul 2019 18:07:48 -0000	1.148.2.11
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Jul 2019 16:51:49 -0000	1.148.2.12
@@ -1690,7 +1690,7 @@
       }
 
       set class_name ::xo::db::sql::[string tolower $package_name]
-      if {![:isobject $class_name]} {
+      if {![nsf::is object $class_name]} {
         ::xo::db::Class create $class_name
       } elseif {![$class_name istype ::xo::db::Class]} {
         #
@@ -1751,7 +1751,7 @@
 
   # Installations with acs-kernel prior to 5.8.1a6 (or later, before running upgrade script)
   # won't have these procs. We define them here if missing to avoid breaking running instances during transition.
-  if {![::xotcl::Class isobject "::xo::db::sql::util"]} {
+  if {![nsf::is object "::xo::db::sql::util"]} {
     ::xotcl::Class create ::xo::db::sql::util
     if {[::xo::db::sql::util info commands table_exists] eq ""} {
       ::xo::db::sql::util ad_proc table_exists {-name:required} {Transitional method} {