diff --git a/src/Handler/Allocation/List.hs b/src/Handler/Allocation/List.hs
index 9d52233ed..558d4c889 100644
--- a/src/Handler/Allocation/List.hs
+++ b/src/Handler/Allocation/List.hs
@@ -89,7 +89,7 @@ getAllocationListR = do
 
     dbtSorting = mconcat
       [ sortTerm $ queryAllocation . to (E.^. AllocationTerm)
-      , sortSchool $ queryAllocation . to (E.^. AllocationSchool)
+      , sortSchoolShort $ queryAllocation . to (E.^. AllocationSchool)
       , sortAllocationName $ queryAllocation . to (E.^. AllocationName)
       , singletonMap "available" . SortColumn $ view queryAvailable
       , if