* Fix strlcomp

git-svn-id: trunk@39567 -

packages/regexpr/src/regexpr.pas

@@ -786,7 +786,7 @@ begin
     SetLength(S2, MaxLen);
   if S1 > S2 then
     Result := 1
-  else if S2 < S2 then
+  else if S1 < S2 then
     Result := -1
   else
     Result := 0;