Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -r0c8c36d48b1a146780b7ba8966196ad1b7075dda -r25416326167316f41d0a90ffa53bac3e1104128f
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 0c8c36d48b1a146780b7ba8966196ad1b7075dda)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 25416326167316f41d0a90ffa53bac3e1104128f)
@@ -204,7 +204,7 @@
     #if {![$o istype ::xotcl::Slot]} {append cmd " -noinit"}
     append cmd " -noinit"
     append cmd " \\\n"
-    foreach i [$o info procs] {
+    foreach i [$o info methods -defined -nocmd] {
       append cmd " " [my method-serialize $o $i ""] " \\\n"
     }
     foreach i [$o info forward] {
@@ -434,7 +434,7 @@
     set code ""
     switch $kind {
       proc {
-	if {[$object info procs $name] ne ""} {
+	if {[$object info methods -defined -nocmd $name] ne ""} {
 	  set code [my method-serialize $object $name ""]
 	}
       }