Index: library/serialize/serializer.tcl
===================================================================
diff -u -rf9dbc318044af9e7cc6114171f0f06120b249ab5 -r8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f9dbc318044af9e7cc6114171f0f06120b249ab5)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf)
@@ -188,7 +188,7 @@
         if {![::nsf::object::exists $o]} {
           return 0
         }
-        set o [::nsf::object::dispatch $o ::nsf::methods::object::info::parent]
+        set o [::nsf::dispatch $o ::nsf::methods::object::info::parent]
       }
     }
     
@@ -307,7 +307,7 @@
 
     :public class method allChildren o {
       # return o and all its children fully qualified
-      set set [::nsf::method::dispatch $o -frame method ::nsf::current]
+      set set [::nsf::directdispatch $o -frame method ::nsf::current]
       foreach c [$o info children] {
         lappend set {*}[:allChildren $c]
       }
@@ -522,13 +522,13 @@
     # Handle association between objects and responsible serializers
     #
     :public method responsibleSerializer {object} {
-      return [::nsf::object::dispatch $object ::nsf::methods::object::info::hastype ${:rootClass}]
+      return [::nsf::dispatch $object ::nsf::methods::object::info::hastype ${:rootClass}]
     }
 
     :public method registerSerializer {s instances} {
       # Communicate responsibility to serializer object $s
       foreach i $instances {
-        if {![::nsf::object::dispatch $i ::nsf::methods::object::info::hastype ${:rootClass}]} continue
+        if {![::nsf::dispatch $i ::nsf::methods::object::info::hastype ${:rootClass}]} continue
         $s setObjectSystemSerializer $i [::nsf::current object]
       }
     }
@@ -557,14 +557,14 @@
         foreach {o p m} $k break
 	if {![::nsf::object::exists $o]} {
 	  :warn "$o is not an object"
-	} elseif {[::nsf::object::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
+	} elseif {[::nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
 	  set :exportMethods($k) 1
 	}
       }
       foreach o [Serializer exportedObjects] {
 	if {![::nsf::object::exists $o]} {
 	  :warn "$o is not an object"
-	} elseif {[nsf::object::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
+	} elseif {[nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootClass}]} {
 	  set :exportObjects($o) 1
 	}
       }
@@ -577,7 +577,7 @@
     ###############################    
 
     :method classify {o} {
-      if {[::nsf::object::dispatch $o ::nsf::methods::object::info::hastype ${:rootMetaClass}]} \
+      if {[::nsf::dispatch $o ::nsf::methods::object::info::hastype ${:rootMetaClass}]} \
           {return Class} {return Object}
     }
 
@@ -783,7 +783,7 @@
       }
 
       :collect-var-traces $o $s
-      set objectName [::nsf::method::dispatch $o -frame method ::nsf::current object]
+      set objectName [::nsf::directdispatch $o -frame method ::nsf::current object]
       set isSlotContainer [::nx::isSlotContainer $objectName]
       if {$isSlotContainer} {
 	append cmd [list ::nx::slotObj [$o ::nsf::methods::object::info::parent]]\n
@@ -922,7 +922,7 @@
 
     :method Object-serialize {o s} {
       :collect-var-traces $o $s
-      append cmd [list [$o info class] create [::nsf::method::dispatch $o -frame method ::nsf::current object]]
+      append cmd [list [$o info class] create [::nsf::directdispatch $o -frame method ::nsf::current object]]
       append cmd " -noinit\n"
       foreach i [$o ::nsf::methods::object::info::methods -methodtype scripted -callprotection all] {
         append cmd [:method-serialize $o $i ""] "\n"