diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 51693fe85..f8fb8722e 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -722,7 +722,7 @@ getEShowR tid ssh csh examn = do
       gradingKeyW :: [Points] -> Widget
       gradingKeyW bounds
         = let boundWidgets :: [Widget]
-              boundWidgets = map (toWidget . (pack :: String -> Text) . showFixed True) bounds
+              boundWidgets = toWidget . (pack :: String -> Text) . showFixed True <$> 0 : bounds
               grades :: [ExamGrade]
               grades = universeF
            in $(widgetFile "widgets/gradingKey")
diff --git a/templates/widgets/gradingKey.cassius b/templates/widgets/gradingKey.cassius
new file mode 100644
index 000000000..396f41818
--- /dev/null
+++ b/templates/widgets/gradingKey.cassius
@@ -0,0 +1,3 @@
+.table--grading-key
+  th, td
+    padding: 3px;
\ No newline at end of file
diff --git a/templates/widgets/gradingKey.hamlet b/templates/widgets/gradingKey.hamlet
index e035911e1..dac9e9537 100644
--- a/templates/widgets/gradingKey.hamlet
+++ b/templates/widgets/gradingKey.hamlet
@@ -1,5 +1,5 @@
 $newline never
-<table>
+<table .table--grading-key>
   <thead>
     <tr>
       <td>