diff --git a/scheme/fs-object.scm b/scheme/fs-object.scm
index 723afc4..83bd2ff 100644
--- a/scheme/fs-object.scm
+++ b/scheme/fs-object.scm
@@ -43,4 +43,8 @@
   (if (file-name-absolute? file-name)
       (make-fs-object (file-name-nondirectory file-name)
                       (file-name-directory file-name))
-      (error "WRITE-ME file-name->fs-object")))
+      (let ((rest-dirs (file-name-directory file-name)))
+        (make-fs-object (file-name-nondirectory file-name)
+                        (string-append (cwd)
+                                       "/"
+                                       rest-dirs)))))