diff --git a/createlinks b/createlinks
index f6a9996..77e3c14 100644
--- a/createlinks
+++ b/createlinks
@@ -4,5 +4,6 @@ use esmith::Build::CreateLinks qw(:all);
 
 event_link("dovecot-acl", "email-update", "85");
 event_link("dovecot-acl", "user-create", "85");
+event_link("dovecot-compile-sieve", "email-update", "86");
 
 safe_touch("root/etc/dovecot/sharedmailbox/dict.db");
diff --git a/root/etc/e-smith/events/actions/dovecot-compile-sieve b/root/etc/e-smith/events/actions/dovecot-compile-sieve
new file mode 100644
index 0000000..2462889
--- /dev/null
+++ b/root/etc/e-smith/events/actions/dovecot-compile-sieve
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+/usr/bin/sievec /usr/libexec/dovecot/sieve/