diff --git a/Projects/MMLLib/test.py b/Projects/MMLLib/test.py
index 9d4f54a..d6e6003 100755
--- a/Projects/MMLLib/test.py
+++ b/Projects/MMLLib/test.py
@@ -36,8 +36,8 @@ dll.printpoints.argtypes = [PPOINT, c_int]
 
 d = dll.printpoints(c, 2)
 
-#dll.hoi.restype = None
-#dll.hoi.argtypes = [POINTER(c_int)]
+dll.hoi.restype = None
+dll.hoi.argtypes = [POINTER(c_int)]
 
 e = c_int(5)
 dll.hoi(byref(e))
diff --git a/Units/Misc/PSDump.pas b/Units/Misc/PSDump.pas
index 92fb877..6265231 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;