>Hi Doug,
>
>There are no top level forms. It hangs when I try to set procedure or set classlib. Here's the code: The wait window with set('procedure') never runs. It will run if I hardcode the path, but I thought procedures and libraries were compiled into the app, making the paths unnecessary.
>
>Jim
>

>* main.prg
>#Define APP_DIRECTORY 'eis9'
>
>Local lcServer         && Universal Naming Convention (Root directory name)
>
>Release oApp
>
>Close Database All
>
>Release All Except lcServer
>lcServer = 's:\'
>
>Clear Windows
>Clear
>If Wexist('project')
>	Hide Window 'project'
>Endif
>
local tcDrive, cNewPath, cTempPath

>If Vartype(oLaunch) = 'O'
>	lcServer = oLaunch.ServerName
>	tcdrive = Left(oLaunch.AppNetworkPath, 2)
>Else
>	tcdrive = 's:'
>Endif
>
>*-- Set up the path
>cNewPath = ''
>cTempPath = tcdrive + '\vfpapps\' + APP_DIRECTORY + '\data'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\' + APP_DIRECTORY + '\prog'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\' + APP_DIRECTORY + '\log'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\share\data'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\shardata\lookup'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\foxapps\mail\data'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\eis9\data\shars'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\insure\data'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\eis9\compliance'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\eis9\compliance\monthly'
>cNewPath = cNewPath + cTempPath
>cTempPath = ';' + tcdrive + '\vfpapps\eis9\compliance\annual'
>cNewPath = cNewPath + cTempPath
>Set Path To (cNewPath)

=messagebox(set('path')) && I bet here is the problem

>Release cTempPath, cNewPath
>WAIT WINDOW "Path"
>* Open procedure files and class libraries
>Set Procedure To c_app, c_security
>WAIT WINDOW Set("Procedure")
>Set Classlib To Controls, eis, Forms
>WAIT WINDOW Set("Classlib")
>* Instantiate application object
>Public oApp
>oApp = Createobject('cApp', lcServer)
>WAIT WINDOW "APP"
>Release Procedure c_app		&& we won't need proc lib any more
>
>If Vartype(oApp) <> 'O'
>	Return
>Endif
>

Add a check for SET('PATH'), I think something is wrong in these lines.

I made few other minor corrections.