diff --git a/cabal-dir.cabal b/cabal-dir.cabal
--- a/cabal-dir.cabal
+++ b/cabal-dir.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                cabal-dir
-version:             0.1.0.2
+version:             0.1.0.3
 stability:           Experimental
 synopsis:            show dist dir of 'cabal copy/install'
 description:         
@@ -31,7 +31,7 @@
 source-repository	this
   type:		git
   location:	git://github.com/YoshikuniJujo/cabal-dir.git
-  tag:		0.1.0.2
+  tag:		0.1.0.3
 
 executable cabal-dir
   main-is:             cabal-dir.hs
diff --git a/cabal-dir.hs b/cabal-dir.hs
--- a/cabal-dir.hs
+++ b/cabal-dir.hs
@@ -67,7 +67,11 @@
 removePrefix "" s = s
 removePrefix p s
 	| p `isPrefixOf` s = dropWhile (== '/') $ drop (length p) s
-	| otherwise = s
+	| otherwise = addCurrent s
+
+addCurrent :: FilePath -> FilePath
+addCurrent fp@('/' : _) = fp
+addCurrent fp = "./" ++ fp
 
 main :: IO ()
 main = do