: mark-shadowed-slots ( tuple -- marked ) +shadowed+ over dup classes:class all-slots dup [ name>> ] map duplicates sets:members [ '[ name>> _ = ] filter but-last [ offset>> set-slot ] 2 nwith each ] 3 nwith each ;