diff --git a/lang/basic/src.old/util.c b/lang/basic/src.old/util.c
index 3a1d2acc..2905abd4 100644
--- a/lang/basic/src.old/util.c
+++ b/lang/basic/src.old/util.c
@@ -32,6 +32,7 @@ fatal(str)
 char *str;
 {
 	Xerror("FATAL",str);
+	unlink(tmpfname);
 	exit(-1);
 }
 notyetimpl()