diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index ce462f5..7a2c0a2 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -1750,14 +1750,12 @@ procedure TForm1.FormCreate(Sender: TObject);
     ms := TMemoryStream.Create;
 
     try
-
       with TPSThread(t).PSScript do
       begin
         a.OnCompile := OnCompile;
         a.OnCompImport := OnCompImport;
         a.OnExecImport := OnExecImport;
       end;
-
       a.GetValueDefs(b);
 
       SetLength(CoreBuffer, 1);
diff --git a/Units/Misc/PSDump.pas b/Units/Misc/PSDump.pas
index dc84e5f..1331077 100644
--- a/Units/Misc/PSDump.pas
+++ b/Units/Misc/PSDump.pas
@@ -175,7 +175,7 @@ procedure TPSScriptExtension.GetCodeProps;
         Result := Result + 'property ' + ci.OrgName + s;
         if (ci.Decl.Result <> nil) then
           Result := Result + ': '+ TypeToString(ci.Decl.Result);
-        if (Cardinal(ci) = Def) then
+        if (PtrUInt(ci) = Def) then
           Result := Result + '; default';
         Result := Result + '; ';
       end;