bugfix: Running `move --to` with a non-ssh remote failed.

1 files changed, 5 insertions, 2 deletions

diff --git a/Remotes.hs b/Remotes.hs
index 5bb2efa55..2c8cdfdad 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -249,8 +249,11 @@ copyToRemote r key
 	| not $ Git.repoIsUrl r = do
 		g <- Annex.gitRepo
 		let keysrc = annexLocation g key
-		let keydest = annexLocation r key
-		liftIO $ copyFile keysrc keydest
+		-- run copy from perspective of remote
+		liftIO $ do
+			a <- Annex.new r []
+			Annex.eval a $ Core.getViaTmp key $ \f ->
+				liftIO $ copyFile keysrc f
 	| Git.repoIsSsh r = do
 		g <- Annex.gitRepo
 		let keysrc = annexLocation g key