diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 2ae690994c..4f7d9c3fcc 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1765,7 +1765,7 @@ end;
 function TStringList.Add(const S: string): Integer;
 
 begin
-  If Not (SortStyle=sslAuto) then
+  If (SortStyle<>sslAuto) then
     Result:=FCount
   else
     If Find (S,Result) then
@@ -1953,7 +1953,7 @@ procedure TStringList.CustomSort(CompareFn: TStringListSortCompare; SortingAlgor
 var
   Context: TStringList_CustomSort_Context;
 begin
-  If (FForceSort or (Not (FSortStyle=sslAuto))) and (FCount>1) then
+  If (FCount>1) and (FForceSort or (FSortStyle<>sslAuto))  then
     begin
     Changing;