[Win32forth-cvs] win32forth/src paths.f,1.20,1.21

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31058/win32forth/src

Modified Files:
	paths.f 
Log Message:
gah:For some reason Win98SE doesn't like %CURENTDIR% in the paths list.

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** paths.f	1 Aug 2006 06:45:29 -0000	1.20
--- paths.f	3 Aug 2006 12:26:24 -0000	1.21
***************
*** 195,199 ****
  \ *G Initialize the Forth directory search path list.
                  path-ptr off \ clear path list
!                 s" %CURRENTDIR%" "fpath+
                  s" %FORTHDIR%"   "fpath+
                  s" %APPDIR%"     "fpath+
--- 195,200 ----
  \ *G Initialize the Forth directory search path list.
                  path-ptr off \ clear path list
!                 [ winver win98 = ] [if] s" ."
!          [else] s" %CURRENTDIR%" [then] "fpath+
                  s" %FORTHDIR%"   "fpath+
                  s" %APPDIR%"     "fpath+