--- publ-ini-1.lua	2022-05-04 08:07:01.410444702 +0530
+++ publ-ini.lua	2022-04-24 09:28:56.499009761 +0530
@@ -22,7 +22,7 @@
 -- gain is not that large anyway because not much publication stuff is flushed.
 
 local next, rawget, type, tostring, tonumber = next, rawget, type, tostring, tonumber
-local match, find, gsub, lower = string.match, string.find, string.gsub, string.lower
+local match, find, gsub = string.match, string.find, string.gsub
 local concat, sort, tohash = table.concat, table.sort, table.tohash
 local mod = math.mod
 local formatters = string.formatters
@@ -1316,12 +1316,6 @@
     local typesetters        = { }
     publications.typesetters = typesetters
 
-    local lowered = setmetatableindex(function(t,k)
-        k = lower(k)
-        t[k] = k
-        return k
-    end)
-
     local function defaulttypesetter(field,value,manipulator)
         if value and value ~= "" then
             value = tostring(value)
@@ -1428,8 +1422,6 @@
     local function get(dataset,tag,field,what,check,catspec) -- somewhat more extensive
         local current = rawget(datasets,dataset)
         if current then
-            tag   = lowered[tag]
-            field = lowered[field]
             local data = current.luadata[tag]
             if data then
                 local category = data.category
@@ -1479,8 +1471,6 @@
     local function btxflush(name,tag,field)
         local dataset = rawget(datasets,name)
         if dataset then
-            tag   = lowered[tag]
-            field = lowered[field]
             local fields = dataset.luadata[tag]
             if fields then
                 local manipulator, field = splitmanipulation(field)
@@ -1507,8 +1497,6 @@
     local function btxfield(name,tag,field)
         local dataset = rawget(datasets,name)
         if dataset then
-            tag   = lowered[tag]
-            field = lowered[field]
             local fields = dataset.luadata[tag]
             if fields then
                 local category = fields.category
@@ -1534,8 +1522,6 @@
     local function btxdetail(name,tag,field)
         local dataset = rawget(datasets,name)
         if dataset then
-            tag   = lowered[tag]
-            field = lowered[field]
             local fields = dataset.luadata[tag]
             if fields then
                 local details = dataset.details[tag]
@@ -1566,11 +1552,8 @@
     local function btxdirect(name,tag,field)
         local dataset = rawget(datasets,name)
         if dataset then
-            tag   = lowered[tag]
-            field = lowered[field]
             local fields = dataset.luadata[tag]
             if fields then
-                field = lowered[field]
                 local manipulator, field = splitmanipulation(field)
                 local value = fields[field]
                 if value then
@@ -1589,8 +1572,6 @@
     local function okay(name,tag,field)
         local dataset = rawget(datasets,name)
         if dataset then
-            tag   = lowered[tag]
-            field = lowered[field]
             local fields = dataset.luadata[tag]
             if fields then
                 local category = fields.category