CustTool not revert to it?s previous class (None) after execution

[SIDUG]

I have a custom tool script that execute text command. Unlike my other scripts, after execution it doesn't return to the previous class 'None'. i.e. it will stay in ''A Note' class. That creates a bit of problem since some of the objects I create after that would be in a class which I don't want. I know I can try to remember to manually switch back to 'None' but why is it not acting like my other scripts? Much appreciation for a solution.

Procedure CustTool;

VAR

Name:STRING;

Result:BOOLEAN;

BEGIN

PushAttrs;

FillFore(32);

FillBack(0);

FillPat(1);

PenFore(257);

PenBack(0);

PenPat(2);

TextFont(50);

TextSize(9);

TextFace([]);

TextSpace(2);

TextJust(1);

NameClass('A NOTE');

SetTool(-200);

PopAttrs;

END;

Run(CustTool);

best regards

Sidug

Edited May 30, 2013 by SIDUG