--- gp.pas.orig	Wed May 19 19:39:15 2004
+++ gp.pas	Wed May 19 19:55:40 2004
@@ -2372,7 +2372,8 @@
   PrintExecutable := False;
   AutoUses := '';
   AutoUsesOption := '';
-  UnitPath := '';
+  UnitPath := GetEnv ('GPC_UNIT_PATH');
+  if UnitPath <> '' then UnitPath := UnitPath + PathSeparator;
   ObjectPath := '';
   UnitDestinationPath := DefaultUnitDestinationPath;
   ObjectDestinationPath := '';