diff --git a/HStringTemplateHelpers.cabal b/HStringTemplateHelpers.cabal
--- a/HStringTemplateHelpers.cabal
+++ b/HStringTemplateHelpers.cabal
@@ -1,5 +1,5 @@
 Name: HStringTemplateHelpers
-Version: 0.0.7
+Version: 0.0.8
 License: GPL
 License-file: gpl.txt
 Description: Convenience functions and instances for HStringTemplate. I will deprecate this package if its contents are integrated into HStringTemplate.
diff --git a/Text/StringTemplate/Helpers.hs b/Text/StringTemplate/Helpers.hs
--- a/Text/StringTemplate/Helpers.hs
+++ b/Text/StringTemplate/Helpers.hs
@@ -8,7 +8,8 @@
 module Text.StringTemplate.Helpers  (
   directoryGroups'
   , directoryGroups
-  , directoryGroups2
+  -- uses function from HStringTemplate which isn't strict, and I believe should be fixed in distribution.
+  , directoryGroupsOld 
   , dirgroupKeys
   , getTemplateGroup
   , renderTemplateDirGroup
@@ -82,7 +83,7 @@
 
 The top group has key \".\" (mnemonic, current directory), other groups have key names of subdirectories, including the starting ., eg \".\/templates\/path\/to/\subdir\"
 -} 
-directoryGroups = directoryGroups' directoryGroup
+directoryGroupsOld = directoryGroups' directoryGroup
 directoryGroups' :: (FilePath -> IO a) -> FilePath -> IO (M.Map FilePath a)
 directoryGroups' f' d = bracketCD d $ do
                            subDirs <- findDirectories $ "." 
@@ -92,7 +93,7 @@
              return (d,g)
     findDirectories d = Find.find Find.always (Find.fileType Find.==? Find.Directory) d
 
-directoryGroups2 = directoryGroups' directoryGroup2
+directoryGroups = directoryGroups' directoryGroupNew
 {- | I think this does the same thing as directoryGroup (modulo IO strictness), 
      which uses an applicative idiom that melts my brain. 
      Not a direct translation, but it's easier for me to understand when written
@@ -100,8 +101,8 @@
      when in dynamicTemplateReload mode.
      I think this needs to be fixed in HStringTemplate distribution as well.
 -}
-directoryGroup2 :: Stringable a => FilePath -> IO (STGroup a)
-directoryGroup2 path = do
+directoryGroupNew :: Stringable a => FilePath -> IO (STGroup a)
+directoryGroupNew path = do
     fs <- return . ( filter ((".st" ==) . takeExtension) ) =<< getDirectoryContents path
     templates <- mapM g fs
     stmapping <- return . zip (map dropExtension fs) $ templates