diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index 1ce41323e..e68ee3d0b 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -1280,8 +1280,8 @@ function TLine.HasLength(out Len: integer): boolean;
   Result := false;
   if Length(Notes) >= 0 then
   begin
-    Result := true;
     Len := EndBeat - Notes[0].StartBeat;
+    Result := (Len > 0);
   end;
 end;