diff --git a/TestSuite/RangeT empty.pas b/TestSuite/RangeT empty.pas
index 7b2086fb1..b78e15deb 100644
--- a/TestSuite/RangeT empty.pas	
+++ b/TestSuite/RangeT empty.pas	
@@ -8,6 +8,6 @@ Assert( ('b'..'b').IsEmpty = false );
 Assert( ('b'..'c').IsEmpty = false );
 Assert( ('c'..'b').IsEmpty = true );
 
-Assert( (2.0..2).IsEmpty = true );
+Assert( (2.0..2).IsEmpty = false );
 Assert( (2.0..3).IsEmpty = false );
 Assert( (3.0..2).IsEmpty = true );
\ No newline at end of file
diff --git a/TestSuite/RangeT in.pas b/TestSuite/RangeT in.pas
index 7403c4bde..fa0862cbe 100644
--- a/TestSuite/RangeT in.pas	
+++ b/TestSuite/RangeT in.pas	
@@ -18,4 +18,6 @@ Assert( 1 not in rr );
 Assert( 2 in rr );
 Assert( 2.5 in rr );
 Assert( 3 in rr );
-Assert( 4 not in rr );
\ No newline at end of file
+Assert( 4 not in rr );
+
+Assert( 2 in 2.0..2 );
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 092f0ccdc..429ceadf7 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -786,7 +786,7 @@ type
     end;
     
     /// Возвращает True если диапазон пуст
-    function IsEmpty: boolean := l>=h;
+    function IsEmpty: boolean := l>h;
     
     function ToString: string; override := $'{l}..{h}';