diff --git a/src/me/raynes/fs.clj b/src/me/raynes/fs.clj
index 16ccaab..658ef4a 100644
--- a/src/me/raynes/fs.clj
+++ b/src/me/raynes/fs.clj
@@ -37,7 +37,7 @@
    This is (naively) assumed to be a directory with the same name as the
    user relative to the parent of the current value of user.home."
   [path]
-  (let [path (str path)]
+  (let [path (str (io/as-file path))]
     (if (.startsWith path "~")
       (let [sep (.indexOf path File/separator)]
         (if (neg? sep)
diff --git a/test/me/raynes/core_test.clj b/test/me/raynes/core_test.clj
index a1917c4..4a1bd9f 100644
--- a/test/me/raynes/core_test.clj
+++ b/test/me/raynes/core_test.clj
@@ -25,6 +25,7 @@
 (fact "Expands path to current user."
   (let [user (System/getProperty "user.home")]
     (expand-home "~") => (file user)
+    (expand-home "~/foo") => (file user "foo")
     (expand-home (str "~" File/separator "foo")) => (file user "foo")))
 
 (fact "Expands to given user."