diff --git a/DESCRIPTION b/DESCRIPTION
index 9358eb5..74f8400 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.1.8.028
+Version: 0.1.8.029
 Authors@R: 
   person(given = "First",
          family = "Last",
diff --git a/codemeta.json b/codemeta.json
index bde8db2..dbe0ea8 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.1.8.028",
+  "version": "0.1.8.029",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
diff --git a/quarto/_colorTable_fn.qmd b/quarto/_colorTable_fn.qmd
index 7cd2250..3b36796 100644
--- a/quarto/_colorTable_fn.qmd
+++ b/quarto/_colorTable_fn.qmd
@@ -107,7 +107,7 @@ function reviewTable(data, {
       ...format,
       [colorColumn]: d => htl.html`<div style="--row-color:${d}">`,
       [issueNumColumn]: d => htl.html`<a href="https://github.com/ropensci/software-review/issues/${d}">${d}</a>`,
-      [titleColumn]: d => htl.html`<a href="https://github.com/ropensci/software-review/issues/${d[1]}">${d[0]}</a>`,
+      [titleColumn]: d => htl.html`<span style="white-space:break-spaces;"><a href="https://github.com/ropensci/software-review/issues/${d[1]}">${d[0]}</a></span>`,
     },
     columns,
     ...options
diff --git a/quarto/reviews.qmd b/quarto/reviews.qmd
index 8f21ee5..37868af 100644
--- a/quarto/reviews.qmd
+++ b/quarto/reviews.qmd
@@ -39,6 +39,7 @@ cat (paste0 (
 
 ```{r add-html-to-table, echo = FALSE}
 u <- "https://github.com/ropensci/software-review/issues/"
+rev_dat$stage_num <- as.integer (substr (rev_dat$stage, 1, 1))
 dat <- rev_dat
 # Number has to come last here!!
 dat <- dashboard:::add_gt_html (dat, u, "title")
@@ -128,6 +129,7 @@ gt::gt (udat) |>
     dashboard:::add_urgency_cols (c ("urgency", "importance"))
 ```
 
+
 ```{r}
 ojs_define (submissions = rev_dat)
 ```
@@ -186,12 +188,11 @@ filteredSorted = filtered.sort((a, b) => {
 
 {{< include _colorTable_fn.qmd >}}
 
-nope
 
 ```{ojs}
 // And this uses the 'reviewTable' function defined in the above file to
 // generate an Observable Inputs.table with coloured rows.
-columns = ["stage", "number", "title", "stats", "stage_date", "editor", "inactive_for"]
+columns = ["stage_num", "number", "title", "stats", "stage_date", "editor", "inactive_for"]
 reviewTable(filteredSorted,
   {
     colorColumn: "rowColor",
@@ -199,12 +200,20 @@ reviewTable(filteredSorted,
     titleColumn: "title",
     columns: columns,
     height: 'auto',
+    layout: 'auto',
+    header: {
+        stage_num: "Stage",
+        number: "Number",
+        title: "Title",
+        stats: "Stats?",
+        stage_date: "Stage date",
+        inactive_for: "Inactive for",
+    }
   }
 )
 ```
 
 
-
 ## 0\/Pre-submission
 
 ```{r dat0, echo = FALSE}