diff --git a/Units/MMLCore/files.pas b/Units/MMLCore/files.pas
index c5e6082..dfcc473 100644
--- a/Units/MMLCore/files.pas
+++ b/Units/MMLCore/files.pas
@@ -413,8 +413,7 @@ begin
   end;
 
   SetLength(S, X);
-  MFiles[FileNum].FS.Read(S[1], x);
-
+  Result := MFiles[FileNum].FS.Read(S[1], x) = x;
   {Files[FileNum].BytesRead := Files[FileNum].BytesRead + X;
   FileRead(Files[FileNum].Handle, S[1], X);
   SetLength(S, X); }