diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs
index 1626939cc..4685994f0 100644
--- a/src/Handler/LMS.hs
+++ b/src/Handler/LMS.hs
@@ -1,4 +1,4 @@
--- SPDX-FileCopyrightText: 2023 Sarah Vaupel <sarah.vaupel@ifi.lmu.de>,Steffen Jost <jost@cip.ifi.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>
+-- SPDX-FileCopyrightText: 2022-23 Sarah Vaupel <sarah.vaupel@ifi.lmu.de>,Steffen Jost <s.jost@fraport.de>,Steffen Jost <jost@tcs.ifi.lmu.de>
 --
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 
@@ -378,8 +378,8 @@ mkLmsTable isAdmin (Entity qid quali) acts cols psValidator = do
   now <- liftIO getCurrentTime
   -- lookup all companies 
   cmpMap <- memcachedBy (Just . Right $ 5 * diffMinute) ("CompanyDictionary"::Text) $ do 
-    cmps <- selectList [] [Asc CompanyShorthand]
-    return $ Map.fromList $ fmap (\c -> (entityKey c, entityVal c)) cmps
+    cmps <- selectList [] [] -- [Asc CompanyShorthand]
+    return $ Map.fromList $ fmap (\Entity{..} -> (entityKey, entityVal)) cmps
   let        
     nowaday = utctDay now
     -- mbRenewal = addGregorianDurationClip <$> qualificationRefreshWithin quali <*> Just nowaday
diff --git a/src/Handler/Qualification.hs b/src/Handler/Qualification.hs
index df337047d..0f4bac949 100644
--- a/src/Handler/Qualification.hs
+++ b/src/Handler/Qualification.hs
@@ -314,8 +314,8 @@ mkQualificationTable isAdmin (Entity qid quali) acts cols psValidator = do
   now <- liftIO getCurrentTime  
   -- lookup all companies   
   cmpMap <- memcachedBy (Just . Right $ 5 * diffMinute) ("CompanyDictionary"::Text) $ do 
-    cmps <- selectList [] [Asc CompanyShorthand]
-    return $ Map.fromList $ fmap (\c -> (entityKey c, entityVal c)) cmps
+    cmps <- selectList [] [] -- [Asc CompanyShorthand]
+    return $ Map.fromList $ fmap (\Entity{..} -> (entityKey, entityVal)) cmps
   let
     nowaday = utctDay now
     mbRenewal = addGregorianDurationClip <$> qualificationRefreshWithin quali <*> Just nowaday