X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/blobdiff_plain/c79e8dd5d161722105ceffaef9096fd7f7c836f7..8a4f4f075a6e2e90039b172242097a4eca48d60b:/algol68-fringe.a68

diff --git a/algol68-fringe.a68 b/algol68-fringe.a68
index 38be75a..b04ee27 100644
--- a/algol68-fringe.a68
+++ b/algol68-fringe.a68
@@ -22,7 +22,7 @@ PROC fail = ([] CHAR message) VOID:
   ### Mournfully announce an error and quit.
   #
   BEGIN put(stand error, (program name, ": ", message, new line));
-    execve("/bin/false", "false", ())	# Can this be any worse? #
+    execve("/bin/false", "false", "die=now")	# Can this be any worse? #
   END;
 
 ###--------------------------------------------------------------------------