diff --git a/components/PascalScript/Source/arm.inc b/components/PascalScript/Source/arm.inc
index 06398453eb..a34194dcd3 100644
--- a/components/PascalScript/Source/arm.inc
+++ b/components/PascalScript/Source/arm.inc
@@ -209,6 +209,10 @@ begin
       end;
     end;
 
+  if assigned(_Self) then begin
+    addgen(dword(_Self));
+  end;
+
   { process all parameters }
   for i := 0 to Params.Count-1 do begin
     if Params[i] = nil
diff --git a/components/PascalScript/Source/powerpc.inc b/components/PascalScript/Source/powerpc.inc
index 3b98e4855a..46a676121b 100644
--- a/components/PascalScript/Source/powerpc.inc
+++ b/components/PascalScript/Source/powerpc.inc
@@ -248,6 +248,10 @@ begin
       end;
     end;
 
+  if assigned(_Self) then begin
+    addgen(dword(_Self));
+  end;
+
   { process all parameters }
   for i := 0 to Params.Count-1 do begin
     if Params[i] = nil