diff --git a/src/virthualenv.hs b/src/virthualenv.hs
--- a/src/virthualenv.hs
+++ b/src/virthualenv.hs
@@ -13,7 +13,7 @@
 main = do
     args <- getArgs
     case args of
-      ["--version"] -> putStrLn "0.2"
+      ["--version"] -> putStrLn "0.2.1"
       ["--help"] -> usage
       ["-h"]     -> usage
       _          ->
diff --git a/virthualenv.cabal b/virthualenv.cabal
--- a/virthualenv.cabal
+++ b/virthualenv.cabal
@@ -1,6 +1,6 @@
 Name:                virthualenv
 
-Version:             0.2
+Version:             0.2.1
 
 Synopsis:            Virtual Haskell Environment builder
 
@@ -98,11 +98,11 @@
 
   Ghc-options: -threaded -Wall
 
-  Build-depends: base >= 4.2.0.0 && < 4.5
+  Build-depends: base >= 4.2.0.0 && < 4.6
                , process >= 1.0.1.2 && < 1.2
-               , filepath >= 1.1.0.3 && < 1.3
+               , filepath >= 1.1.0.3 && < 1.4
                , directory >= 1.0.1.0 && < 1.2
-               , Cabal >= 1.8.0.6 && < 1.13
+               , Cabal >= 1.8.0.6 && < 1.15
                , mtl >= 1.1.0.2 && < 2.1
                , bytestring >= 0.9.1.7 && < 0.10
                , file-embed >= 0.0.4.1 && < 0.1
diff --git a/virthualenv.el b/virthualenv.el
--- a/virthualenv.el
+++ b/virthualenv.el
@@ -10,11 +10,8 @@
 (defun virthualenv-activate (dir)
   "Activate the Virtual Haskell Environment in DIR"
   (interactive "Dvirthualenv directory: ")
-  (when (equal (char-list-to-string (last (string-to-list dir)))
-               "/")
-    (setq dir (subseq dir
-                      0
-                      (- (length dir) 1))))
+  (when (string-match "^.*/$" dir)
+    (setq dir (substring dir 0 -1)))
   (let* ((virthualenv-dir (concat dir "/.virthualenv/"))
          (path-var-prependix-location (concat virthualenv-dir "path_var_prependix"))
          (ghc-package-path-var-location (concat virthualenv-dir "ghc_package_path_var"))