From 925452198ef1206a5ff364f424ae379796fe3a4e Mon Sep 17 00:00:00 2001
From: NosoDevTeam <142863157+NosoDevTeam@users.noreply.github.com>
Date: Mon, 22 Jan 2024 22:54:38 +0100
Subject: [PATCH] 042ba3

---
 lastrelease.txt      | 2 +-
 masterpaskalform.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lastrelease.txt b/lastrelease.txt
index 59aeb5a..53a244a 100644
--- a/lastrelease.txt
+++ b/lastrelease.txt
@@ -1 +1 @@
-0.4.2Ba1 0.4.2Ba2 {win64hash} {linux64hash} {signature}
\ No newline at end of file
+0.4.2Ba1 0.4.2Ba3 {win64hash} {linux64hash} {signature}
\ No newline at end of file
diff --git a/masterpaskalform.pas b/masterpaskalform.pas
index 614abb6..4b27849 100644
--- a/masterpaskalform.pas
+++ b/masterpaskalform.pas
@@ -634,7 +634,7 @@   TForm1 = class(TForm)
   RestartFileName = 'launcher.sh';
   updateextension = 'tgz';
   {$ENDIF}
-  SubVersion = 'Ba2';
+  SubVersion = 'Ba3';
   OficialRelease = false;
   VersionRequired = '0.4.1Ba1';
   BuildDate = 'January 2024';
@@ -1996,7 +1996,7 @@ procedure TForm1.Grid2PrepareCanvas(sender: TObject; aCol, aRow: Integer;
 Begin
 if EngineLastUpdate <> UTCtime then EngineLastUpdate := UTCtime;
 Form1.Latido.Enabled:=false;
-if ( (UTCTime >= BuildNMSBlock) and (BuildNMSBlock>0) and (MyConStatus=3) and (MyLastBlock=GetCOnsensus(2)) ) then
+if ( (UTCTime >= BuildNMSBlock) and (BuildNMSBlock>0) and (MyConStatus=3) and (MyLastBlock=StrToIntDef(GetCOnsensus(2),-1)) ) then
    begin
    ToLog('events','Starting construction of block '+(MyLastBlock+1).ToString);
    BuildNewBlock(MyLastBlock+1,BuildNMSBlock,MyLastBlockHash,GetNMSData.Miner,GetNMSData.Hash);