Merged revisions 3900 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

git-svn-id: branches/fixes_2_0@3901 -

rtl/objpas/strutils.pp

@@ -1231,7 +1231,7 @@ end;
 function RomanToint(const S: string): Longint;
 
 const
-  RomanChars  = ['C','D','i','L','M','V','X'];
+  RomanChars  = ['C','D','I','L','M','V','X'];
   RomanValues : array['C'..'X'] of Word
               = (100,500,0,0,0,0,1,0,0,50,1000,0,0,0,0,0,0,0,0,5,0,10);