Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -r4dd2595d98574faaac87f5dd33b542516fdff5df -r2111020b49da8ce57758e51accf0b6073037f0d2
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 4dd2595d98574faaac87f5dd33b542516fdff5df)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 2111020b49da8ce57758e51accf0b6073037f0d2)
@@ -201,7 +201,8 @@
     append cmd [list [$o info class] create [$o self]]
     # slots needs to be initialized when optimized, since
     # parametercmds are not serialized
-    if {![$o istype ::xotcl::Slot]} {append cmd " -noinit"}
+    #if {![$o istype ::xotcl::Slot]} {append cmd " -noinit"}
+    append cmd " -noinit"
     append cmd " \\\n"
     foreach i [$o info procs] {
       append cmd " " [my method-serialize $o $i ""] " \\\n"
@@ -210,6 +211,9 @@
       set fwd [concat [list forward $i] [$o info forward -definition $i]]
       append cmd \t [my pcmd $fwd] " \\\n"
     }
+    foreach i [$o info parametercmd] {
+      append cmd \t [my pcmd [list parametercmd $i]] " \\\n"
+    }
     set vset {}
     set nrVars 0
     foreach v [$o info vars] {
@@ -246,6 +250,9 @@
       set fwd [concat [list instforward $i] [$o info instforward -definition $i]]
       append cmd \t [my pcmd $fwd] " \\\n"
     }
+    foreach i [$o info instparametercmd] {
+      append cmd \t [my pcmd [list instparametercmd $i]] " \\\n"
+    }
     foreach x {superclass instinvar} {
       set v [$o info $x]
       if {$v ne "" && "::xotcl::Object" ne $v } {