Index: library/serialize/serializer.tcl =================================================================== diff -u -r494410d936ca8f8481faa2a13447c9289e5ef7e9 -rf9f501ffe3b3bd7a3843416f82fc6189be2634ff --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 494410d936ca8f8481faa2a13447c9289e5ef7e9) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision f9f501ffe3b3bd7a3843416f82fc6189be2634ff) @@ -1038,10 +1038,11 @@ set arglist [$o ::nsf::methods::${scope}::info::method parameter $m] lappend def ${:targetName} ${prefix}proc $m \ $arglist \ - [$o info ${prefix}body $m] + [$o ::nsf::methods::${scope}::info::method body $m] foreach p {pre post} { - if {[$o info ${prefix}$p $m] ne ""} { - lappend def [$o info ${prefix}$p $m] + set cond [$o ::nsf::methods::${scope}::info::method ${p}condition $m] + if {$cond ne ""} { + lappend def $cond } } }