diff --git a/commit-patch b/commit-patch
index 39c7257..102197e 100755
--- a/commit-patch
+++ b/commit-patch
@@ -25,7 +25,7 @@ sub run {
     IPC::Run::run(@_);
 }
 
-my %clean;
+my %clean; # Rename keys to values on any error (rollback). Unlinks keys on success.
 my $repo=".";
 my %vc;
 while (!$vc{name}) {