From f308245fcef75528bf3ca7ffd259ec667522da51 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Fri, 24 Jul 2026 09:00:26 +0300
Subject: [PATCH] tap: Fix showing the version

---
 retropikzel/tap.scm     | 6 +++---
 retropikzel/tap/VERSION | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/retropikzel/tap.scm b/retropikzel/tap.scm
index 870f9fb..6af7a0c 100644
--- a/retropikzel/tap.scm
+++ b/retropikzel/tap.scm
@@ -37,6 +37,9 @@
        (test-runner-on-group-begin!
          runner
          (lambda (runner suite-name count)
+           (when (not started?)
+             (println "TAP version 14")
+             (set! started? #t))
            (set! current-test-group-count 0)
            (when current-suite-name
              (println "# Subtest: " suite-name)
@@ -60,9 +63,6 @@
        (test-runner-on-test-begin!
          runner
          (lambda (runner)
-           (when (not started?)
-             (println "TAP version 14")
-             (set! started? #t))
            (set! current-test-group-count (+ current-test-group-count 1))))
 
        (test-runner-on-test-end!
diff --git a/retropikzel/tap/VERSION b/retropikzel/tap/VERSION
index 0c62199..ee1372d 100644
--- a/retropikzel/tap/VERSION
+++ b/retropikzel/tap/VERSION
@@ -1 +1 @@
-0.2.1
+0.2.2