diff --git a/Units/PascalScript/x86.inc b/Units/PascalScript/x86.inc
index 9ae2f84..df89435 100644
--- a/Units/PascalScript/x86.inc
+++ b/Units/PascalScript/x86.inc
@@ -550,7 +550,7 @@ begin
           if assigned(res) then begin
             case res^.aType.BaseType of
               {$IFNDEF PS_NOWIDESTRING}btWideString, btUnicodeString, {$ENDIF}
-              btInterface, btArray, btrecord, {$IFNDEF PS_FPCSTRINGWORKAROUND}btstring, {$ENDIF}btVariant, btStaticArray: GetPtr(res);
+              btInterface, {$IFNDEF FPC} btArray, {$ENDIF}btrecord, {$IFNDEF PS_FPCSTRINGWORKAROUND}btstring, {$ENDIF}btVariant, btStaticArray: GetPtr(res);
               btSet:
                 begin
                   if TPSTypeRec_Set(res.aType).aByteSize >4 then GetPtr(res);
diff --git a/todo.txt b/todo.txt
index 3347b27..0081927 100644
--- a/todo.txt
+++ b/todo.txt
@@ -6,5 +6,4 @@
 - Installer
 - Test scripts
 - DWS
-- OCR exceptions + proper implementation of len
 - Documentation + wiki
\ No newline at end of file