git-svn-id: trunk@37361 -
@@ -1243,7 +1243,7 @@ implementation
exit(res);
{ if one of the two is at the end while the other isn't, add a '.0' }
if (i1>length(s1)) and
- (i2<=length(s1)) then
+ (i2<=length(s2)) then
s1:=s1+'.0'
else if i2>length(s2) then
s2:=s2+'.0';