2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cac34a3d314..6d58882e9e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-10-09  Glenn Morris  <rgm@gnu.org>
 
+        * vc/vc-svn.el (vc-svn-create-repo):
+        Expand paths in file://... url.  (Bug#15446)
+
         * emacs-lisp/authors.el (authors-aliases, authors-fixed-case):
         Add some entries.
         (authors): Remove unused local variables.
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 1fd51dd2148..d569349461f 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -293,8 +293,10 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
 (defun vc-svn-create-repo ()
   "Create a new SVN repository."
   (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN"))
+  ;; Expand default-directory because svn gets confused by eg
+  ;; file://~/path/to/file.  (Bug#15446).
   (vc-svn-command "*vc*" 0 "." "checkout"
-                  (concat "file://" default-directory "SVN")))
+                  (concat "file://" (expand-file-name default-directory) "SVN")))
 
 (autoload 'vc-switches "vc")