diff --git a/rtl/go32v2/filutil.inc b/rtl/go32v2/filutil.inc
index a62f17ad96..295ad36c4f 100644
--- a/rtl/go32v2/filutil.inc
+++ b/rtl/go32v2/filutil.inc
@@ -293,7 +293,7 @@ var Regs: registers;
 begin
   StringToTB(FileName);
   Regs.Edx := tb_offset;
-  Regs.Ds := tb_offset;
+  Regs.Ds := tb_segment;
   if LFNSupport then
     Regs.Eax := $7141
   else
@@ -350,9 +350,9 @@ SystemTime.Day := Regs.Dl;
 end ;
 
 { ---------------------------------------------------------------------
-    Internationalization settings 
+    Internationalization settings
   ---------------------------------------------------------------------}
-  
+
 
 {  Codepage constants  }
 const
@@ -421,13 +421,13 @@ for i := 91 to 255 do
 
 {  Get country and codepage info  }
 GetExtendedCountryInfo(1, $FFFF, $FFFF, CountryInfo);
-if CountryInfo.CodePage = 850 then 
+if CountryInfo.CodePage = 850 then
   begin
   { Special, known case }
   Move(CP850UCT, UpperCaseTable[128], 128);
   Move(CP850LCT, LowerCaseTable[128], 128);
   end
-else 
+else
   begin
   { this needs to be checked !!
   this is correct only if UpperCaseTable is
@@ -435,7 +435,7 @@ else
   {  get the uppercase table from dosmemory  }
   GetExtendedCountryInfo(2, $FFFF, $FFFF, CountryInfo);
   DosMemGet(CountryInfo.UpperCaseTable shr 16, 2 + CountryInfo.UpperCaseTable and 65535, UpperCaseTable[128], 128);
-  for i := 128 to 255 do 
+  for i := 128 to 255 do
      begin
      if UpperCaseTable[i] <> chr(i) then
         LowerCaseTable[ord(UpperCaseTable[i])] := chr(i);
@@ -454,7 +454,10 @@ end;
 
 {
   $Log$
-  Revision 1.6  1999-08-19 14:00:08  pierre
+  Revision 1.7  1999-08-24 13:14:28  peter
+    * fixed DeleteFile()
+
+  Revision 1.6  1999/08/19 14:00:08  pierre
    * bug in country info code fixed
 
   Revision 1.5  1999/02/28 13:18:12  michael