Index: library/serialize/serializer.tcl
===================================================================
diff -u -rf1cd1537386ab1fdfabccaadae215990e376ae9d -r18122dd21b99cf0d5b4cd01635048641a23aa051
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f1cd1537386ab1fdfabccaadae215990e376ae9d)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 18122dd21b99cf0d5b4cd01635048641a23aa051)
@@ -183,7 +183,7 @@
           return 1
         }
         # we do this for object trees without object-less namespaces
-        if {![::nsf::objectproperty $o object]} {
+        if {![::nsf::isobject $o]} {
           return 0
         }
         set o [$o info parent]
@@ -275,7 +275,7 @@
       catch {unset namespace(::ns)}
       foreach ns [array name namespace] {
         if {![namespace exists $ns]} continue
-        if {![::nsf::objectproperty $ns object]} {
+        if {![::nsf::isobject $ns]} {
           append pre_cmds "namespace eval $ns {}\n"
         } elseif {$ns ne [namespace origin $ns] } {
           append pre_cmds "namespace eval $ns {}\n"
@@ -342,7 +342,7 @@
 
     :object method checkExportedObject {} {
       foreach o [array names :exportObjects] {
-        if {![::nsf::objectproperty $o object]} {
+        if {![::nsf::isobject $o]} {
           puts stderr "Serializer exportObject: ignore non-existing object $o"
           unset :exportObjects($o)
         } else {
@@ -494,14 +494,14 @@
       #
       foreach k [Serializer exportedMethods] {
         foreach {o p m} $k break
-	if {![::nsf::objectproperty $o object]} {
+	if {![::nsf::isobject $o]} {
 	  puts stderr "Warning: $o is not an object"
 	} elseif {[::nsf::dispatch $o ::nsf::cmd::ObjectInfo2::hastype ${:rootClass}]} {
 	  set :exportMethods($k) 1
 	}
       }
       foreach o [Serializer exportedObjects] {
-	if {![::nsf::objectproperty $o object]} {
+	if {![::nsf::isobject $o]} {
 	  puts stderr "Warning: $o is not an object"
 	} elseif {[nsf::dispatch $o ::nsf::cmd::ObjectInfo2::hastype ${:rootClass}]} {
 	  set :exportObjects($o) 1