* fix for oldbugid 4365 new id 6279

	closefile no longer under {dollar I-}

git-svn-id: trunk@3937 -

rtl/objpas/objpas.pp

@@ -124,9 +124,7 @@ Procedure CloseFile(Var f:File);
 
 begin
   { Catch Runtime error/Exception }
-  {$I+}
   System.Close(f);
-  {$I-}
 end;
 
 { Text file support }
@@ -153,12 +151,10 @@ Procedure CloseFile(Var t:Text);
 
 begin
   { Catch Runtime error/Exception }
-  {$I+}
   System.Close(T);
-  {$I-}
 end;
 
-{ Typed file supoort }
+{ Typed file support }
 
 Procedure AssignFile(Var f:TypedFile;const Name:string);