2 files changed, 11 insertions, 2 deletions
diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index 1af6e3a8..c2ec467f 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -699,6 +699,14 @@ begin
         end;
         bt := Czesci[p].Czesc[line].Nuta[note].Start;
 
+        if (Czesci[p].Czesc[line].Nuta[note].Dlugosc<1) then
+        begin
+          Log.LogError('Note length <1 in sentence ' + IntToStr(line+1) + ', on beat ' + IntToStr(Czesci[p].Czesc[line].Nuta[note].Start) +
+            ' in song ' + AktSong.Path + AktSong.Filename);
+          if (Ini.LoadFaultySongs=0) then
+            Result := false;
+        end;
+
         if (note<numNotes-1) then
           nextBeat := Czesci[p].Czesc[line].Nuta[note+1].Start
         else if (line<numLines-1) then
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index ed7855bd..8104b5b5 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -167,9 +167,10 @@ begin
 
   if FileErrorO then begin
     try
-      WriteLn(FileError, Text);
-      Flush(FileError);
       Inc(NumErrors);
+      WriteLn(FileError, IntToStr(NumErrors) + ') ' + Text);
+      WriteLn(FileError, '');
+      Flush(FileError);
     except
       FileErrorO := false;
     end;