diff --git a/X2UtStrings.pas b/X2UtStrings.pas
index 9157bc2..1660543 100644
--- a/X2UtStrings.pas
+++ b/X2UtStrings.pas
@@ -376,7 +376,7 @@ begin
   AParent := ExcludeTrailingPathDelimiter(ExpandFileName(AParent));
   Result  := SameTextS(AChild, AParent) and
              ((not AFailIfSame) or
-              (Length(AChild) > Length(AParent));
+              (Length(AChild) > Length(AParent)));
 end;
 
 end.