diff --git a/Shorewall-perl/compiler.pl b/Shorewall-perl/compiler.pl
index 61450bd49..4541211b6 100755
--- a/Shorewall-perl/compiler.pl
+++ b/Shorewall-perl/compiler.pl
@@ -101,7 +101,7 @@ sub generate_script_1() {
 
     emit "TEMPFILE=\n";
 
-    for my $exit qw/init start tcclear started stop stopped/ {
+    for my $exit qw/init start tcclear started stop stopped clear/ {
 	emit "run_${exit}_exit() {";
 	push_indent;
 	append_file $exit;