 
 (defun svn-refresh-one (file)
   "Run `svn status' on FILE."
-  (interactive (list (read-file-name "Svn status on file: "
-                                     default-directory
-                                     nil t
-                                     (or (svn-getprop (point) 'file)
-                                         (svn-getprop (point) 'dir)))))
+  (interactive (list (expand-file-name
+		      (read-file-name "Svn status on file: "
+				      default-directory
+				      nil t
+				      (or (svn-getprop (point) 'file)
+					  (svn-getprop (point) 'dir))))))
   (if (file-directory-p file)
       (setq file (file-name-as-directory file)))
   (svn-check-running)
-  (let ((local-file
+  (let* ((exp-default-dir (expand-file-name default-directory))
+	 (local-file
 	 (if (file-name-absolute-p file)
-	     (let ((ddl (length default-directory)))
+	     (let ((ddl (length exp-default-dir)))
 	       (if (or (< (length file) ddl)
 		       (not (string= (substring file 0 ddl)
-				     default-directory)))
+				     exp-default-dir)))
 		   (error "Outside working copy")
 		 (substring file ddl)))
 	   file)))

                 (svn-action-files)))
        (commit-buf (current-buffer))
        (status-buf svn-status-buf)
        (msg-file (make-temp-file "svn-commit")))
    ;; Ensure final newline
    (goto-char (point-max))
    (unless (bolp)

;;	Mattias Engdegrd <mattias@virtutech.com>
;; Maintainer: David Kgedal <david@virtutech.com>
;; Created: 27 Jan 2006
;; Version: 1.1
;; Keywords: docs

;; This program is free software; you can redistribute it and/or
