>>>>> "Randal" == Randal L Schwartz <merlyn at stonehenge.com> writes:

Randal> Of course, if you already have a stream, use #storeOn: instead.

As in:

    YourClass compile:
      (String streamContents: [:stream |
        stream nextPutAll: 'someMethodName'; cr; tab; nextPutAll: '^ '.
        yourForm storeOn: stream
    ]).

There.  Installs #someMethodName in YourClass, which answers yourForm.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion