Index: library/serialize/serializer.tcl
===================================================================
diff -u -rfe1a8f6956a13ac6ce9f2df858b0c4d736840089 -rf9dbc318044af9e7cc6114171f0f06120b249ab5
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision fe1a8f6956a13ac6ce9f2df858b0c4d736840089)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f9dbc318044af9e7cc6114171f0f06120b249ab5)
@@ -307,7 +307,7 @@
 
     :public class method allChildren o {
       # return o and all its children fully qualified
-      set set [::nsf::object::dispatch $o -frame method ::nsf::current]
+      set set [::nsf::method::dispatch $o -frame method ::nsf::current]
       foreach c [$o info children] {
         lappend set {*}[:allChildren $c]
       }
@@ -783,7 +783,7 @@
       }
 
       :collect-var-traces $o $s
-      set objectName [::nsf::object::dispatch $o -frame method ::nsf::current object]
+      set objectName [::nsf::method::dispatch $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::object::dispatch $o -frame method ::nsf::current object]]
+      append cmd [list [$o info class] create [::nsf::method::dispatch $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"