Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -re767edf5c498094f6e00150541bfb7beab52b619 -r9ebd1309a52b27ab92e9e3cce07037767efe4a4f
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision e767edf5c498094f6e00150541bfb7beab52b619)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 9ebd1309a52b27ab92e9e3cce07037767efe4a4f)
@@ -204,14 +204,14 @@
     #if {![$o istype ::xotcl::Slot]} {append cmd " -noinit"}
     append cmd " -noinit"
     append cmd " \\\n"
-    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -per-object -methodtype scripted] {
+    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -methodtype scripted] {
       append cmd " " [my method-serialize $o $i ""] " \\\n"
     }
-    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -per-object -methodtype forward] {
+    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -methodtype forward] {
       set fwd [concat [list forward $i] [$o info forward -definition $i]]
       append cmd \t [my pcmd $fwd] " \\\n"
     }
-    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -per-object -methodtype setter] {
+    foreach i [::xotcl::cmd::ObjectInfo::methods $o -defined -methodtype setter] {
       append cmd \t [my pcmd [list parametercmd $i]] " \\\n"
     }
     set vset {}