diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index a0895774f..cadc13683 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -88,7 +88,7 @@ getProblemUnreachableR = do
     setTitleI   MsgProblemsUnreachableHeading
     [whamlet|
       <section>
-        _{MsgProblemsUnreachableBody}
+        #{length unreachables} _{MsgProblemsUnreachableBody}        
         <ul>
           $forall usr <- unreachables
             <li>