diff --git a/src/Handler/Allocation/Users.hs b/src/Handler/Allocation/Users.hs
index 5654c5dda..200f9a4a9 100644
--- a/src/Handler/Allocation/Users.hs
+++ b/src/Handler/Allocation/Users.hs
@@ -153,7 +153,7 @@ postAUsersR tid ssh ash = do
                   assignedHeated' res
                     = let maxAssign = min (res ^. resultAllocationUser . _entityVal . _allocationUserTotalCourses . to fromIntegral)
                                           (res ^. resultAppliedCourses)
-                          assigned = res ^. resultAssignedCourses
+                          assigned = maxAssign - res ^. resultAssignedCourses
                        in cellAttrs <>~ [ ("class", "heated")
                                         , ("style", [st|--hotness: #{tshow (heat maxAssign assigned)}|])
                                         ]