diff --git a/Language/Haskell/TH/ExpandSyns.hs b/Language/Haskell/TH/ExpandSyns.hs
--- a/Language/Haskell/TH/ExpandSyns.hs
+++ b/Language/Haskell/TH/ExpandSyns.hs
@@ -9,7 +9,7 @@
                                      ,evades,evade) where
     
 import Language.Haskell.TH hiding(cxt)
-import Data.Set as Set    
+import qualified Data.Set as Set    
 import Data.Generics
 import Control.Monad
 
@@ -198,10 +198,10 @@
 evade :: Data d => Name -> d -> Name
 evade n t = 
     let
-        vars :: Set Name
-        vars = everything union (mkQ Set.empty Set.singleton) t
+        vars :: Set.Set Name
+        vars = everything Set.union (mkQ Set.empty Set.singleton) t
 
-        go n1 = if n1 `member` vars
+        go n1 = if n1 `Set.member` vars
                 then go (bump n1)
                 else n1
                      
diff --git a/th-expand-syns.cabal b/th-expand-syns.cabal
--- a/th-expand-syns.cabal
+++ b/th-expand-syns.cabal
@@ -1,5 +1,5 @@
 name:                th-expand-syns
-version:             0.3.0.0
+version:             0.3.0.1
 synopsis:            Expands type synonyms in Template Haskell ASTs
 description:         Expands type synonyms in Template Haskell ASTs
 category:            Template Haskell