minor changes

src/core/UConst.pas

@@ -73,7 +73,7 @@ Const
 
   {$IFDEF ACTIVATE_RANDOMHASH_V4}
   CT_CompactTarget_Reset_v4: Cardinal = // First compact target of block if using Protocol 4 and RandomHash is Active
-    {$IFDEF PRODUCTION}$16000000{$ELSE}$08000000{$ENDIF};
+    {$IFDEF PRODUCTION}$17000000{$ELSE}$08000000{$ENDIF};
   {$ENDIF}
 
 
@@ -175,7 +175,7 @@ Const
 
   CT_ClientAppVersion : AnsiString = {$IFDEF PRODUCTION}'3.0.2'{$ELSE}{$IFDEF TESTNET}'TESTNET 3.0.6'{$ELSE}{$ENDIF}{$ENDIF};
 
-  CT_Discover_IPs =  'bpascal1.dynamic-dns.net;bpascal2.dynamic-dns.net;pascalcoin1.dynamic-dns.net;pascalcoin2.dynamic-dns.net;pascalcoin1.dns1.us;pascalcoin2.dns1.us;pascalcoin1.dns2.us;pascalcoin2.dns2.us'{$IFDEF TESTNET}+';99.254.181.147;159.89.12.242;18.236.158.185'{$ENDIF};
+  CT_Discover_IPs = 'bpascal1.dynamic-dns.net;bpascal2.dynamic-dns.net;pascalcoin1.dynamic-dns.net;pascalcoin2.dynamic-dns.net;pascalcoin1.dns1.us;pascalcoin2.dns1.us;pascalcoin1.dns2.us;pascalcoin2.dns2.us'{$IFDEF TESTNET}+';99.254.181.147;159.89.12.242;18.236.158.185'{$ENDIF};
 
   CT_TRUE_FALSE : Array[Boolean] Of AnsiString = ('FALSE','TRUE');
 

src/core/UNetProtocol.pas

@@ -2809,6 +2809,7 @@ begin
           FIsDownloadingBlocks := false;
           exit;
         end;
+        sleep(1);
       end;
       FIsDownloadingBlocks := false;
       if ((opcount>0) And (FRemoteOperationBlock.block>=TNode.Node.Bank.BlocksCount)) then begin

src/core/UNode.pas

@@ -1281,6 +1281,7 @@ begin
       If FNodeNotifyEvents.FWatchKeys.HasAccountKeyChanged then begin
         FNodeNotifyEvents.FWatchKeys.ClearAccountKeyChanges;
         if Assigned(FNodeNotifyEvents.FOnKeyActivity) then begin
+          DebugStep:='Notify WatchKeys OnKeyActivity';
           FNodeNotifyEvents.FOnKeyActivity(FNodeNotifyEvents);
         end;
       end;