Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -rd627242b910f2ec0c4a7520089d7ac5f8a9c2395
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision c72f9f638677608fab1502cd696c8f2d6b2952f9)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision d627242b910f2ec0c4a7520089d7ac5f8a9c2395)
@@ -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 } {