diff --git a/src/Handler/Allocation/Show.hs b/src/Handler/Allocation/Show.hs
index cb36c0ac5..acdc43714 100644
--- a/src/Handler/Allocation/Show.hs
+++ b/src/Handler/Allocation/Show.hs
@@ -19,7 +19,7 @@ getAShowR :: TermId -> SchoolId -> AllocationShorthand -> Handler Html
 getAShowR tid ssh ash = do
   muid <- maybeAuthId
   now  <- liftIO getCurrentTime
-  ata  <- fromMaybe def <$> lookupSessionJson SessionActiveAuthTags
+  ata  <- getSessionActiveAuthTags
 
   let
     resultCourse :: Simple Field1 a (Entity Course) => Lens' a (Entity Course)