diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 3492c6e..2858ea1 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -31,6 +31,15 @@ foreach (@source) {
 }
 close ($target);
 
+if ( -e ".mv_wrap") {
+	die "Another mv_wrap process is active in this direcory\n"
+}
+else {
+	open LOCK, ">.mv_wrap";
+	print LOCK $$;
+	close LOCK;
+}
+
 &edit($target_name);
 
 open $target, $target_name or die "Couldn't open tempfile: $target_name: $!";
@@ -54,6 +63,8 @@ if (@unsafe = &check_safety(\@source, \@target)) {
 # final move
 &move_files(\@source, \@target);
 
+unlink ".mv_wrap" or die "Couldn't remove lock";
+
 # call EDITOR or vi with filename
 # edit($filename);
 sub edit {