Expand file-name before use

Without expanding the file name to an absolute file name the following
invocation would go wrong:

,----
| kaarvork some-template .
`----

Because `kaarvok' would not know what to do with the `.' and errors
would occur.

1 files changed, 2 insertions, 1 deletions

diff --git a/kaarvok.el b/kaarvok.el
index 55f1e0b..974e844 100644
--- a/kaarvok.el
+++ b/kaarvok.el
@@ -133,7 +133,8 @@ Replace any occurrences of variables with user-povided values."
   (interactive "MTemplate: \nGDestination: ")
   (let ((kaarvok-value-alist))
     (kaarvok-copy-directory
-     (concat kaarvok-templates-directory "/" template) destination)))
+     (concat kaarvok-templates-directory "/" template)
+     (expand-file-name destination))))
 
 (provide 'kaarvok)
 ;;; kaarvok.el ends here