diff --git a/.github/workflows/Run-Tests.yml b/.github/workflows/Run-Tests.yml
index 5f3923a..2add26f 100644
--- a/.github/workflows/Run-Tests.yml
+++ b/.github/workflows/Run-Tests.yml
@@ -7,6 +7,7 @@ on:
 permissions:
   id-token: write
   contents: read
+  checks: write
 
 jobs:
   Run-Tests:
diff --git a/APLSource/Core/RunTestsuite.aplf b/APLSource/Core/RunTestsuite.aplf
index d5e3396..512e9d3 100644
--- a/APLSource/Core/RunTestsuite.aplf
+++ b/APLSource/Core/RunTestsuite.aplf
@@ -1,4 +1,4 @@
- res←cfg RunTestsuite testspace;res;allfns;testfns;testfn;ai;testcase;setupfns;cleanupfns;lasttest;assertCnts
+ res←cfg RunTestsuite testspace;res;allfns;testfns;testfn;ai;testcase;setupfns;cleanupfns;lasttest;assertCnts;resultSymbol
 ⍝ Run tests using configuraition in cfg
 ⍝ Return a result space.
 
@@ -16,9 +16,12 @@
  assertCnts←GetAssertionCount
  :For testfn :In testfns
      lasttest←testfn≡⊃¯1↑testfns
+     ⍞←testfn,': '
      ai←⎕AI
      testcase←cfg RunTest testspace testfn
      testcase.TimeElapsed←(3⊃⎕AI-ai)÷1000
+     resultSymbol←⎕UCS 9989 10060 9197 9888[1+testcase.ResultCode]
+     ⍞←resultSymbol,⎕UCS 10
      :If testcase.ResultCode≠API.TESTRESULT.PASS
      :AndIf ~lasttest
          testspace.⍎¨cleanupfns,setupfns
@@ -26,7 +29,7 @@
      res.Testcases,←testcase
      assertCnts,←GetAssertionCount
  :EndFor
- res.Assertions←+/res.Testcases.Assertions← ¯2-/assertCnts
+ res.Assertions←+/res.Testcases.Assertions←¯2-/assertCnts
  testspace.⍎¨cleanupfns
  res.TimeElapsed←86400×-/1 ⎕DT ⎕TS res.Timestamp
  res.Tests←≢res.Testcases