--- garfield-6.33.orig/garfield.car	Mon Dec  6 14:38:57 1999
+++ garfield-6.33.keep/garfield.car	Tue Dec  7 15:44:53 1999
@@ -4938,6 +4938,11 @@
             NCFILE=MIN(LEN(INFILE),NCHOME+25)
             CALL DSNINQ(INFILE,NCFILE,EXIST)
        ENDIF
+       IF(.NOT.EXIST)THEN
+            INFILE='/cern/pro/share/garfield/garfinit'
+            NCFILE=MIN(LEN(INFILE),33)
+            CALL DSNINQ(INFILE,NCFILE,EXIST)
+       ENDIF
 +SELF,IF=-CMS,IF=-VAX,IF=-UNIX.
        INFILE=' '
        NCFILE=1
@@ -53218,7 +53223,7 @@
        ENDIF
 *   If still not found, try the AFS file name.
        IF(.NOT.EXIST)THEN
-            FILE='/afs/cern.ch/user/r/rjd/Garfield/Files/'//
+            FILE='/cern/pro/share/garfield/'//
      -           'garfield.packhelp'
             NCFILE=MIN(56,LEN(FILE))
             INQUIRE(FILE=FILE(1:NCFILE),EXIST=EXIST)