diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 36ccb41..2230aef 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Dwarf$
+# $Dwarf: mvwrap,v 1.38 2002/12/13 18:54:12 ward Exp $
 # $Source$
 
 #
@@ -310,6 +310,7 @@ sub unlock {
 sub cdie {
 	$message = shift;
 	&unlock;
+	unlink $temp_file or die "Couldn't remove temp file: $!\n";
 	die "$message";
 }