diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index 57d4ad87af..de21988de5 100644
--- a/Command/Unlock.hs
+++ b/Command/Unlock.hs
@@ -16,6 +16,7 @@ import Types
 import Messages
 import Locations
 import Utility
+import Core
 
 {- The unlock subcommand replaces the symlink with a copy of the file's
  - content. -}
@@ -32,5 +33,7 @@ perform dest key = do
 	showNote "copying..."
 	ok <- liftIO $ boolSystem "cp" ["-p", src, dest]
         if ok
-                then return $ Just $ return True -- no cleanup needed
+                then do
+			liftIO $ allowWrite dest
+			return $ Just $ return True
                 else error "cp failed!"