|  | @@ -1810,6 +1810,7 @@ begin {CallBackValidateDir}
 | 
	
		
			
				|  |  |        ParentDir := IncludeTrailingBackslash(NodePath(Node));
 | 
	
		
			
				|  |  |        {Build list of existing subnodes:}
 | 
	
		
			
				|  |  |        SubDirList := TStringList.Create;
 | 
	
		
			
				|  |  | +      SubDirList.CaseSensitive := True; // We want to reflect changes in subfolder name case
 | 
	
		
			
				|  |  |        while Assigned(WorkNode) do
 | 
	
		
			
				|  |  |        begin
 | 
	
		
			
				|  |  |          SubDirList.Add(TNodeData(WorkNode.Data).DirName);
 | 
	
	
		
			
				|  | @@ -1818,6 +1819,7 @@ begin {CallBackValidateDir}
 | 
	
		
			
				|  |  |        {Sorting not required, because the subnodes are already sorted!}
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |        SRecList := TStringList.Create;
 | 
	
		
			
				|  |  | +      SRecList.CaseSensitive := True;
 | 
	
		
			
				|  |  |        DosError := FindFirst(ApiPath(ParentDir + '*.*'), DirAttrMask, SRec);
 | 
	
		
			
				|  |  |        while DosError = 0 do
 | 
	
		
			
				|  |  |        begin
 |