[plt-scheme] protected methods

Is there something like "enter!" for classes?  It's kind of a pain to
have to use define/public for methods just to make them available for
testing.  I guess I could use define-local-member-name, but that seems
kind of laborious.  I think I want something like define/protected, to
make methods that can be called by anything in the same module as the
class definition, so that when I enter a module I can use its
protected methods.  Has anyone tried to make something like this?

--dougorleans at gmail.com