diff --git a/ide/whtml.pas b/ide/whtml.pas
index cb104544ee..0a1fa51959 100644
--- a/ide/whtml.pas
+++ b/ide/whtml.pas
@@ -200,12 +200,16 @@ constructor TDOSTextFile.Init(AFileName: string);
 var f: file;
     linecomplete,hasCR: boolean;
     S: string;
+    OldFMode : Integer;
 begin
   inherited Init;
   if AFileName='' then Fail;
 {$I-}
   Assign(f,AFileName);
+  OldFMode:= FileMode;
+  FileMode:= 0;
   Reset(f,1);
+  FileMode:= OldFMode;
   if IOResult<>0 then Fail;
   DosFileName:=AFileName;
   Dispose(Lines,Done);
diff --git a/ide/whtmlhlp.pas b/ide/whtmlhlp.pas
index 3f6074a4b3..0e0e741097 100644
--- a/ide/whtmlhlp.pas
+++ b/ide/whtmlhlp.pas
@@ -867,7 +867,7 @@ begin
             exists PM }
           src:=DirAndNameOf(src)+'.ans';
 {$ifdef DEBUG}
-  DebugMessage(GetFileName,' Trying "'+Src+'"',Line,1);
+          DebugMessage(GetFileName,' Trying "'+Src+'"',Line,1);
 {$endif DEBUG}
           if not ExistsFile(src) then
             begin
@@ -1443,7 +1443,7 @@ begin
       if Name<>'' then
         HTMLFile:=New(PDOSTextFile, Init(Name));
 
-      if (HTMLFile=nil)and (CurFileName<>'') then
+      if (HTMLFile=nil) and (CurFileName<>'') then
         begin
           Name:=CurFileName;
           HTMLFile:=New(PDOSTextFile, Init(Name));