Gary,

I've modified your code slightly, although it's functionally equivalent:

PROCEDURE AddLib

LPARAMETERS tcLib, tcFile

LOCAL ARRAY laLibArray[1]

IF NOT UPPER(tclib) + '.VCX' $ SET('CLASSLIB')
   IF PCOUNT() = 1
      SET CLASSLIB TO (tcLib) ADDITIVE
   ELSE
      ALINES(laLibArray, tcLib, .T., ',')
      FOR EACH tcLib IN laLibArray
         SET CLASSLIB TO (tcLib) IN (tcFile) ADDITIVE
      ENDFOR
   ENDIF
ENDIF

ENDPROC

If this works for you, I'll make it official!

Regards,