* Fixed bug where read-only property was read wrongly

git-svn-id: trunk@7283 -

packages/fcl-passrc/src/pparser.pp

@@ -1583,8 +1583,8 @@ procedure TPasParser.ParseProperty(Element:TPasElement);
       Result := Result + ']';
     end else 
       UngetToken;
-    MaybeReadFullyQualifiedIdentifier(Result);  
-//    writeln(Result);
+    //MaybeReadFullyQualifiedIdentifier(Result);  
+    writeln(Result);
   end;
 
 begin