From 0d616f2ccaafeb3671b86bdeeaef6c55ec133488 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Mon, 19 Mar 2001 21:05:42 +0000
Subject: [PATCH]   * mistyping in the Unix part fixed

---
 rtl/inc/fexpand.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/fexpand.inc b/rtl/inc/fexpand.inc
index 9faeeceb18..0bfdc6a8ef 100644
--- a/rtl/inc/fexpand.inc
+++ b/rtl/inc/fexpand.inc
@@ -75,7 +75,7 @@ begin
                 Delete (Pa, 1, 1)
             else
                 if S [Length (S)] = DirSep then
-                    Pa := S + Copy (Pa, 3, Length (Pa - 2))
+                    Pa := S + Copy (Pa, 3, Length (Pa) - 2)
                 else
                     Pa := S + Copy (Pa, 2, Pred (Length (Pa)));
    end;
@@ -200,7 +200,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  2001-03-10 09:57:51  hajny
+  Revision 1.3  2001-03-19 21:05:42  hajny
+    * mistyping in the Unix part fixed
+
+  Revision 1.2  2001/03/10 09:57:51  hajny
     * FExpand without IOResult change, remaining direct asm removed