--- oup/current/DataAccess/Access_OUP_ADB.pas	2007/03/29 14:20:25	136
+++ oup/current/DataAccess/Access_OUP_ADB.pas	2007/04/01 21:14:29	155
@@ -253,6 +253,7 @@ var
 
 begin
   list := TStringList.Create;
+  list.CaseSensitive := True;
   list.Sorted := True;
   for i := 0 to GetFileCount - 1 do
   begin