diff --git a/mkcabal.cabal b/mkcabal.cabal
--- a/mkcabal.cabal
+++ b/mkcabal.cabal
@@ -1,5 +1,5 @@
 Name:                mkcabal
-Version:             0.4
+Version:             0.4.1
 License:             GPL
 License-file:        LICENSE
 Homepage:            http://code.haskell.org/~dons/code/mkcabal
@@ -17,7 +17,7 @@
  
 Executable mkcabal
     main-is:             mkcabal.hs
-    build-depends:       mtl, pcre-light, readline
+    build-depends:       mtl, pcre-light ==0.3, readline
     if flag(small_base)
         build-depends: base >= 3,
                        pretty, old-locale, old-time, directory
diff --git a/mkcabal.hs b/mkcabal.hs
--- a/mkcabal.hs
+++ b/mkcabal.hs
@@ -394,6 +394,6 @@
     defMail         = "user@email.address"
     defNameAndMail  = [defName,defMail]
     nameAndMail s   = pair . fromMaybe defNameAndMail $
-                        match (either error id $ compile "(.*)[[:space:]]*<(.*)>" []) s []
+                        match (compile "(.*)[[:space:]]*<(.*)>" []) s []
     pair [x,y]      = (x,y)