Index: oup/current/DataAccess/Access_OUP_ADB.pas
===================================================================
--- oup/current/DataAccess/Access_OUP_ADB.pas	(revision 148)
+++ oup/current/DataAccess/Access_OUP_ADB.pas	(revision 155)
@@ -254,4 +254,5 @@
 begin
   list := TStringList.Create;
+  list.CaseSensitive := True;
   list.Sorted := True;
   for i := 0 to GetFileCount - 1 do