Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/Attic/xotcl-core-db-tutorial-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl	20 Mar 2019 20:48:48 -0000	1.1.2.1
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl	23 Jul 2019 16:56:53 -0000	1.1.2.2
@@ -19,14 +19,14 @@
 
     set id [$o object_id]
     aa_true "'$o' has a matching object_id" [regexp "^::$id\$" $o]
-    aa_true "$o is an abject" [::xotcl::Object isobject $o]
+    aa_true "$o is an abject" [nsf::is object $o]
 
     $o destroy
-    aa_false "$o is not an abject anymore" [::xotcl::Object isobject $o]
+    aa_false "$o is not an abject anymore" [nsf::is object $o]
 
     # Load the persisted object from the DB
     set o [::xo::db::Class get_instance_from_db -id $id]
-    aa_true "$o is again an abject" [::xotcl::Object isobject $o]
+    aa_true "$o is again an abject" [nsf::is object $o]
 
     # Check, of object exists in the DB
     aa_true "$o exists in the DB" [::xo::db::Class exists_in_db -id $id]
@@ -86,7 +86,7 @@
 
     aa_true "'$p' looks like a valid object name" [regexp {^::\d+$} $p]
 
-    aa_true "object $p exists in memory" [::xotcl::Object isobject $p]
+    aa_true "object $p exists in memory" [nsf::is object $p]
     set id [$p object_id]
     aa_true "bject $p exists in the db"  [::xo::db::Class exists_in_db -id $id]