From 8a3692b9fd2d5730ef593fb3c550addc0458cdba Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 4 Aug 2019 21:30:02 +0000
Subject: [PATCH] * Correct DefaultHandler/DeefaultHandlerStr

---
 packages/rtl/system.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/rtl/system.pas b/packages/rtl/system.pas
index 62edde7..1f204db 100644
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -975,7 +975,7 @@ begin
   Id:=Msg['MsgStr'];
   if not isString(Id) then exit;
   aClass:=ClassType;
-  while aClass<>nil do
+  while (aClass<>Nil) do
     begin
     asm
       var Handlers = aClass.$msgstr;
@@ -991,12 +991,12 @@ end;
 
 procedure TObject.DefaultHandler(var aMessage);
 begin
-  if jsvalue(aMessage) then ;
+  if jsvalue(TMethod(aMessage)) then ;
 end;
 
 procedure TObject.DefaultHandlerStr(var aMessage);
 begin
-  if jsvalue(aMessage) then ;
+  if jsvalue(TMethod(aMessage)) then ;
 end;
 
 function TObject.GetInterface(const iid: TGuid; out obj): boolean;