I'm glad it works for you.

>I do what you have suggested with a slight modification:
>

><<objectname>>=NEWOBJECT("<<classname>>", <<TBX_ChangeClasslib(classlib)>>)
>

> i.e. I remove the pair of double quote from the TBX_ChangeClasslib(classlib) portion.
>
>My UDF reads
>

>LPARAMETERS cFileSpec
>LOCAL cResult
>
>DO CASE
>      CASE [\HLIB\] $ UPPER(cFileSpec)
>	cResult = [pcPATHhlib + "] + JUSTFNAME(cFileSpec) + ["]
>      OTHERWISE
>	cResult = cFileSpec
>ENDCASE
>RETURN cResult
>

>
>and I get exactly what I want. Again BIG THANK to you!