* Corrected wrong "fix" from MR !1241

packages/fcl-passrc/examples/test_parser.pp

@@ -305,8 +305,8 @@ procedure GetTPasExpr(lex:TPasExpr);
     pekFuncParams:begin lbrak:='('; rbrak:=')'; Result:=','; end;
     pekArrayParams:begin lbrak:='['; rbrak:=']'; Result:=','; end;
     pekListOfExp:Result:=',';
-    pekInherited:Result:=' InheritD';
-    pekSelf:Result:=' SelF';
+    pekInherited:Result:=' Inherited';
+    pekSelf:Result:=' Self';
    end;
   end;