Index: library/serialize/serializer.tcl
===================================================================
diff -u -rb3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b -rda6586782390b02ed7660b56417c3db00d63d1c3
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision b3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision da6586782390b02ed7660b56417c3db00d63d1c3)
@@ -184,7 +184,7 @@
           return 1
         }
         # we do this for object trees without object-less namespaces
-        if {![::nsf::isobject $o]} {
+        if {![::nsf::object::exists $o]} {
           return 0
         }
         set o [::nsf::dispatch $o ::nsf::methods::object::info::parent]
@@ -276,7 +276,7 @@
       catch {unset namespace(::ns)}
       foreach ns [array name namespace] {
         if {![namespace exists $ns]} continue
-        if {![::nsf::isobject $ns]} {
+        if {![::nsf::object::exists $ns]} {
           append pre_cmds "namespace eval $ns {}\n"
         } elseif {$ns ne [namespace origin $ns] } {
           append pre_cmds "namespace eval $ns {}\n"
@@ -343,7 +343,7 @@
 
     :class method checkExportedObject {} {
       foreach o [array names :exportObjects] {
-        if {![::nsf::isobject $o]} {
+        if {![::nsf::object::exists $o]} {
           :warn "Serializer exportObject: ignore non-existing object $o"
           unset :exportObjects($o)
         } else {
@@ -552,14 +552,14 @@
       #
       foreach k [Serializer exportedMethods] {
         foreach {o p m} $k break
-	if {![::nsf::isobject $o]} {
+	if {![::nsf::object::exists $o]} {
 	  :warn "$o is not an object"
 	} elseif {[::nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
 	  set :exportMethods($k) 1
 	}
       }
       foreach o [Serializer exportedObjects] {
-	if {![::nsf::isobject $o]} {
+	if {![::nsf::object::exists $o]} {
 	  :warn "$o is not an object"
 	} elseif {[nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
 	  set :exportObjects($o) 1