From dc8b8a535e9167bdd2460f060262cfba6467df2d Mon Sep 17 00:00:00 2001
From: Willem <willemtsade.git.2022@distributedrebirth.love>
Date: Fri, 28 Jun 2024 18:52:59 +0200
Subject: [PATCH] Fixed message for mode 40 output.

---
 lib/openmsx/share/scripts/fail_after.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/openmsx/share/scripts/fail_after.tcl b/lib/openmsx/share/scripts/fail_after.tcl
index 54526cd..7a8ed57 100644
--- a/lib/openmsx/share/scripts/fail_after.tcl
+++ b/lib/openmsx/share/scripts/fail_after.tcl
@@ -2,7 +2,7 @@
 #
 # Typically used in combination with the MSX-DOS 'omsxctl.com' utility.
 #
-# Adds two environment variables and two commands to openMSX;
+# Adds two commands to openMSX;
 #
 # 'fail_after timeout [timeunit] [fail_id] [fail_code]'
 # Schedules an openMSX exit after the timeout.
@@ -54,7 +54,7 @@ proc fail_after { timeout {time_unit "time"} {fail_id "fail_after"} {fail_code 2
 			puts stderr "error: $err_msg"
 			fail_after_exit fail_after_timer_error 1
 		}
-		set msg "$msg\n$fail_id: Automatic failure in $timeout $time_unit seconds."
+		set msg "$msg\n$fail_id: Failure in $timeout $time_unit sec"
 	} else {
 		set fail_after_prev_timer 0
 	}