diff --git a/src/Handler/Allocation/List.hs b/src/Handler/Allocation/List.hs
index 558d4c889..081734394 100644
--- a/src/Handler/Allocation/List.hs
+++ b/src/Handler/Allocation/List.hs
@@ -124,7 +124,7 @@ getAllocationListR = do
 
     psValidator :: PSValidator _ _
     psValidator = def
-      & defaultSorting [SortDescBy "term", SortAscBy "school", SortAscBy "allocation"]
+      & defaultSorting [SortDescBy "term", SortAscBy "school-short", SortAscBy "allocation"]
 
   table <- runDB $ dbTableWidget' psValidator DBTable{..}