procedure prototyping not behaving as expected

[drpro]

Hi,

I'm delving into super procedures, but my simple example (when I run test.p) is returning the following message:-

** "proc" was not found. (293)

I have 3 files:-

/********* baseclass.p ***********/
procedure proc:
message "baseclass proc" view-as alert-box.
end procedure.

/********* class.p **************/
procedure proc in super:
end procedure.

def var hdl as handle no-undo.
run baseclass.p persistent set hdl.
this-procedure:add-super-procedure(hdl).

/********* test.p *************/
def var hdl as handle no-undo.
run class.p persistent set hdl.
this-procedure:add-super-procedure(hdl).
run proc.

What am I doing wrong?

Regards
David P