In the Applescript class comment, I see

    Applescript doIt: 'beep 3'

which when cmd-D'ed, gives the following walkback:

    6 February 2001 11:57:51 am
    Error: Object is negative integer
    Unsigned class(Object)>>error:
    Unsigned class>>ccgCanConvertFrom:
    SmallInteger(Object)>>asOop:
    TestOSAPlugin>>primAECreateDesc:from:
    TestOSAPlugin class(TestInterpreterPlugin class)>>doPrimitive:withArguments:
    AEDesc>>primAECreateDesc:from:
    AEDesc>>createFromText:
    AEDesc class>>textTypeOn:
    ApplescriptInstance>>compile:mode:
    Applescript>>on:mode:onErrorDo:
    Applescript>>on:
    Applescript class>>on:
    Applescript class>>doIt:
    Applescript class>>DoIt
    Compiler>>evaluate:in:to:notifying:ifFail:
    [] in TextMorphEditor(ParagraphEditor)>>evaluateSelection
    ...

I didn't see any obvious headway to make here.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!