diff --git a/GenPaths.hs b/GenPaths.hs
--- a/GenPaths.hs
+++ b/GenPaths.hs
@@ -18,22 +18,23 @@
     case mnv of
         Nothing       -> hPutStrLn stderr "cabal file does not exist"
         Just (nm,ver) -> do
-            let file = "Paths_" ++ nm ++ ".hs"
+            let file = "Paths_" ++ nm' ++ ".hs"
             exist <- doesFileExist file
             if exist then
                 hPutStrLn stderr $ file ++ " already exists"
             else do
                 putStrLn $ "Writing " ++ file ++ "..."
                 writeFile file $
-                     "module Paths_" ++ nm ++ "  where\n"
+                     "module Paths_" ++ nm' ++ "  where\n"
                   ++ "import Data.Version\n"
                   ++ "\n"
                   ++ "version :: Version\n"
                   ++ "version = Version [" ++ ver' ++ "] []\n"
           where
-            ver' = map trans ver
-            trans c
-              | c == '.'  = ','
+            nm'  = map (trans '-' '_') nm
+            ver' = map (trans '.' ',') ver
+            trans c1 c2 c
+              | c == c1   = c2
               | otherwise = c
 
 getNameVersion :: IO (Maybe (String,String))
diff --git a/cab.cabal b/cab.cabal
--- a/cab.cabal
+++ b/cab.cabal
@@ -1,5 +1,5 @@
 Name:                   cab
-Version:                0.1.8
+Version:                0.1.9
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3