Index: library/serialize/serializer.tcl
===================================================================
diff -u -rc3c81c3240fd7e04d5f630d76c62755135691bcf -rfdab3b9e05d21cb92835b9128193c7ba329d583d
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision c3c81c3240fd7e04d5f630d76c62755135691bcf)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision fdab3b9e05d21cb92835b9128193c7ba329d583d)
@@ -616,7 +616,7 @@
 	return [set $handle]
       }
       set needed [list]
-      foreach alias [$x ::nsf::methods::${where}::info::methods -methodtype alias -callprotection all -expand] {
+      foreach alias [$x ::nsf::methods::${where}::info::methods -methodtype alias -callprotection all -path] {
 	set definition [$x ::nsf::methods::${where}::info::method definition $alias]
 	set source [$x ::nsf::methods::class::info::method definition [lindex $definition end]]
 	if {$source ne ""} {
@@ -713,7 +713,7 @@
 	append cmd [list ::nx::slotObj [$o ::nsf::methods::object::info::parent]]\n
       } else {
 	append cmd [list [$o info class] create $objectName -noinit]\n
-	foreach i [lsort [$o ::nsf::methods::object::info::methods -callprotection all -expand]] {
+	foreach i [lsort [$o ::nsf::methods::object::info::methods -callprotection all -path]] {
 	  append cmd [:method-serialize $o $i "class-object"] "\n"
 	}
       }
@@ -742,7 +742,7 @@
     :method Class-serialize {o s} {
 
       set cmd [:Object-serialize $o $s]
-      foreach i [lsort [$o ::nsf::methods::class::info::methods -callprotection all -expand]] {
+      foreach i [lsort [$o ::nsf::methods::class::info::methods -callprotection all -path]] {
         append cmd [:method-serialize $o $i ""] "\n"
       }
       append cmd \