diff --git a/nemesis-titan.cabal b/nemesis-titan.cabal
--- a/nemesis-titan.cabal
+++ b/nemesis-titan.cabal
@@ -1,5 +1,5 @@
 Name:                 nemesis-titan
-Version:              2013.6.13
+Version:              2013.6.13.1
 Build-type:           Simple
 Synopsis:             A collection of Nemesis tasks to bootstrap a Haskell project with a focus on continuous integration
 Description:          
diff --git a/src/System/Nemesis/Titan.hs b/src/System/Nemesis/Titan.hs
--- a/src/System/Nemesis/Titan.hs
+++ b/src/System/Nemesis/Titan.hs
@@ -7,16 +7,14 @@
 
 import Air.Env
 import Prelude ()
+import Air.TH (here)
+
 import qualified Data.ByteString.Char8 as B
 import qualified Data.UUID as UUID
 import System.Directory
 import System.Random
-
-import System.Environment (getArgs)
 import System.FilePath
 
-import Air.TH (here)
-
 import Test.Hspec
 import Text.StringTemplate
 
@@ -56,7 +54,7 @@
 module Main where
 
 import Air.Extra (with_spec, halt)
-import System.Nemesis.Jinjing.Angel
+import System.Nemesis.Titan
 import Test.Hspec
 
 spec :: IO ()
@@ -81,23 +79,6 @@
       
       text `shouldSatisfy` (null > not)
       
-
-get_label_file_name :: IO (Maybe (String, String))
-get_label_file_name = do
-  xs <- io getArgs
-
-  case xs of
-    (_:file_name:[]) -> 
-      let label = file_name.takeBaseName
-      in
-      return - Just (label, file_name)
-      
-    (_:label:file_name:[]) ->
-      return - Just (label, file_name)
-    
-    _ -> return Nothing
-    
-  
 
 titan :: String -> Unit
 titan file_name = do