diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs
index 96cb624d1..68f9b0d74 100644
--- a/Configuration/GlobalAssemblyInfo.cs
+++ b/Configuration/GlobalAssemblyInfo.cs
@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "10";
 	public const string Build = "0";
-	public const string Revision = "3543";
+	public const string Revision = "3544";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
diff --git a/Configuration/Version.defs b/Configuration/Version.defs
index 9677a09ef..fd9b073ba 100644
--- a/Configuration/Version.defs
+++ b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%MINOR%=10
-%REVISION%=3543
 %COREVERSION%=0
+%REVISION%=3544
+%MINOR%=10
 %MAJOR%=3
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
index 50896ab9a..3d1a64491 100644
--- a/Release/pabcversion.txt
+++ b/Release/pabcversion.txt
@@ -1 +1 @@
-3.10.0.3543
+3.10.0.3544
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index 664b3eace..52d618e21 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.10.0.3543'
+!define VERSION '3.10.0.3544'
diff --git a/TestSuite/CompilationSamples/Coords.pas b/TestSuite/CompilationSamples/Coords.pas
index 8f144c9f9..0a44fe5a1 100644
--- a/TestSuite/CompilationSamples/Coords.pas
+++ b/TestSuite/CompilationSamples/Coords.pas
@@ -306,6 +306,14 @@ begin
   dc.DrawRectangle(cb,cp,Rect(p.x,p.y,w,h));
 end;
 
+procedure LinePlay(dc: DrawingContext; x,y,x1,y1: real; c: Color; width: real);
+begin
+  var cp := ColorPen(c,Width);
+  var p := fso.RealToScreen(Pnt(x,y));
+  var p1 := fso.RealToScreen(Pnt(x1,y1));
+  dc.DrawLine(cp,p,p1);
+end;
+
 procedure CorrectXYForTextHelper(var p: Point; w,h: real; Align: Alignment);
 begin
   case Align of
@@ -383,6 +391,13 @@ type
   public  
     procedure Play(dc: DrawingContext); override := RectanglePlay(dc,x,y,w,h,c,borderc);
   end;
+  LineC = auto class(Command)
+    x,y,x1,y1: real;
+    c: Color;
+    width: real;
+  public  
+    procedure Play(dc: DrawingContext); override := LinePlay(dc,x,y,x1,y1,c,width);
+  end;
   TextC = auto class(Command)
     x,y: real;
     text: string;
@@ -444,6 +459,10 @@ procedure DrawPoint(x,y: real; Color: GColor := Colors.Black; PointRadius: real
 procedure DrawRectangle(x,y,w,h: real; color: GColor := Colors.White; borderColor: GColor := Colors.Black)
   := RectangleC.Create(x,y,w,h,color,borderColor).AddToListAndPlay;
 
+/// Рисует отрезок
+procedure DrawLine(x,y,x1,y1: real; Color: GColor := Colors.Black; Width: real := 1)
+  := LineC.Create(x,y,x1,y1,color,width).AddToListAndPlay;
+
 /// Рисует прямоугольник без границы
 procedure FillRectangle(x,y,w,h: real; color: GColor := Colors.White)
   := RectangleC.Create(x,y,w,h,color,Colors.Transparent).AddToListAndPlay;
diff --git a/TestSuite/CompilationSamples/LightPT.pas b/TestSuite/CompilationSamples/LightPT.pas
index 951b7f523..03b1ca193 100644
--- a/TestSuite/CompilationSamples/LightPT.pas
+++ b/TestSuite/CompilationSamples/LightPT.pas
@@ -2808,9 +2808,10 @@ begin
               raise e.InnerException;
           end;
           //InputList := InputList; 
-          //OutputList := OutputList; 
+          OutputList := OutputList; 
           
           FlattenOutput; // SSM 28.06.24 - и перед каждым тестом
+          OutputListIsClearedFromSpaces := False;
           CheckTask(TName);
           if TaskResult = BadSolution then
             break; // хоть один тест неудачный - выходим!
diff --git a/bin/Lib/Coords.pas b/bin/Lib/Coords.pas
index 8f144c9f9..0a44fe5a1 100644
--- a/bin/Lib/Coords.pas
+++ b/bin/Lib/Coords.pas
@@ -306,6 +306,14 @@ begin
   dc.DrawRectangle(cb,cp,Rect(p.x,p.y,w,h));
 end;
 
+procedure LinePlay(dc: DrawingContext; x,y,x1,y1: real; c: Color; width: real);
+begin
+  var cp := ColorPen(c,Width);
+  var p := fso.RealToScreen(Pnt(x,y));
+  var p1 := fso.RealToScreen(Pnt(x1,y1));
+  dc.DrawLine(cp,p,p1);
+end;
+
 procedure CorrectXYForTextHelper(var p: Point; w,h: real; Align: Alignment);
 begin
   case Align of
@@ -383,6 +391,13 @@ type
   public  
     procedure Play(dc: DrawingContext); override := RectanglePlay(dc,x,y,w,h,c,borderc);
   end;
+  LineC = auto class(Command)
+    x,y,x1,y1: real;
+    c: Color;
+    width: real;
+  public  
+    procedure Play(dc: DrawingContext); override := LinePlay(dc,x,y,x1,y1,c,width);
+  end;
   TextC = auto class(Command)
     x,y: real;
     text: string;
@@ -444,6 +459,10 @@ procedure DrawPoint(x,y: real; Color: GColor := Colors.Black; PointRadius: real
 procedure DrawRectangle(x,y,w,h: real; color: GColor := Colors.White; borderColor: GColor := Colors.Black)
   := RectangleC.Create(x,y,w,h,color,borderColor).AddToListAndPlay;
 
+/// Рисует отрезок
+procedure DrawLine(x,y,x1,y1: real; Color: GColor := Colors.Black; Width: real := 1)
+  := LineC.Create(x,y,x1,y1,color,width).AddToListAndPlay;
+
 /// Рисует прямоугольник без границы
 procedure FillRectangle(x,y,w,h: real; color: GColor := Colors.White)
   := RectangleC.Create(x,y,w,h,color,Colors.Transparent).AddToListAndPlay;
diff --git a/bin/Lib/LightPT.pas b/bin/Lib/LightPT.pas
index 951b7f523..03b1ca193 100644
--- a/bin/Lib/LightPT.pas
+++ b/bin/Lib/LightPT.pas
@@ -2808,9 +2808,10 @@ begin
               raise e.InnerException;
           end;
           //InputList := InputList; 
-          //OutputList := OutputList; 
+          OutputList := OutputList; 
           
           FlattenOutput; // SSM 28.06.24 - и перед каждым тестом
+          OutputListIsClearedFromSpaces := False;
           CheckTask(TName);
           if TaskResult = BadSolution then
             break; // хоть один тест неудачный - выходим!