Index: library/serialize/serializer.tcl =================================================================== diff -u -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -ra467cf37f204cc977b7af7519a0994c65f9ed10f --- library/serialize/serializer.tcl (.../serializer.tcl) (revision a24e1f836c3126d0a0e9467bde3a9fa8da901711) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision a467cf37f204cc977b7af7519a0994c65f9ed10f) @@ -706,7 +706,7 @@ set scs [$x info superclass] if {[$s needsOneOf $scs]} {return 0} if {[$s needsOneOf [::nsf::relation $x class-mixin]]} {return 0} - foreach sc $scs {if {[$s needsOneOf [$sc info slots]]} {return 0}} + foreach sc $scs {if {[$s needsOneOf [$sc ::nsf::methods::class::info::slotobjects]]} {return 0}} if {[$s needsOneOf [:alias-dependency $x class]]} {return 0} return 1 } @@ -716,7 +716,7 @@ set cl [$x info class] if {$p ne "::" && [$s needsOneOf $p]} {return 0} if {[$s needsOneOf $cl]} {return 0} - if {[$s needsOneOf [$cl ::nsf::methods::class::info::slots -closure -source application]]} {return 0} + if {[$s needsOneOf [$cl ::nsf::methods::class::info::slotobjects -closure -source application]]} {return 0} if {[$s needsOneOf [:alias-dependency $x object]]} {return 0} return 1 }