diff --git a/GHC/SYB/Utils.hs b/GHC/SYB/Utils.hs
--- a/GHC/SYB/Utils.hs
+++ b/GHC/SYB/Utils.hs
@@ -192,6 +192,13 @@
 
 import Data.List
 
+showSDoc_ :: SDoc -> String
+#if __GLASGOW_HASKELL__ < 706
+showSDoc_ = showSDoc
+#else
+showSDoc_ = showSDoc tracingDynFlags
+#endif
+
 -- | Ghc Ast types tend to have undefined holes, to be filled
 --   by later compiler phases. We tag Asts with their source,
 --   so that we can avoid such holes based on who generated the Asts.
@@ -218,12 +225,12 @@
         list l     = indent n ++ "[" 
                               ++ concat (intersperse "," (map (showData stage (n+1)) l)) ++ "]"
 
-        name       = ("{Name: "++) . (++"}") . showSDoc . ppr :: Name -> String
+        name       = ("{Name: "++) . (++"}") . showSDoc_ . ppr :: Name -> String
         occName    = ("{OccName: "++) . (++"}") .  OccName.occNameString 
-        moduleName = ("{ModuleName: "++) . (++"}") . showSDoc . ppr :: ModuleName -> String
-        srcSpan    = ("{"++) . (++"}") . showSDoc . ppr :: SrcSpan -> String
-        var        = ("{Var: "++) . (++"}") . showSDoc . ppr :: Var -> String
-        dataCon    = ("{DataCon: "++) . (++"}") . showSDoc . ppr :: DataCon -> String
+        moduleName = ("{ModuleName: "++) . (++"}") . showSDoc_ . ppr :: ModuleName -> String
+        srcSpan    = ("{"++) . (++"}") . showSDoc_ . ppr :: SrcSpan -> String
+        var        = ("{Var: "++) . (++"}") . showSDoc_ . ppr :: Var -> String
+        dataCon    = ("{DataCon: "++) . (++"}") . showSDoc_ . ppr :: DataCon -> String
 
         bagRdrName:: Bag (Located (HsBind RdrName)) -> String
         bagRdrName = ("{Bag(Located (HsBind RdrName)): "++) . (++"}") . list . bagToList 
@@ -238,10 +245,10 @@
                 = ("{NameSet: "++) . (++"}") . list . nameSetToList 
 
         postTcType | stage<TypeChecker = const "{!type placeholder here?!}" :: PostTcType -> String
-                   | otherwise     = showSDoc . ppr :: Type -> String
+                   | otherwise     = showSDoc_ . ppr :: Type -> String
 
         fixity | stage<Renamer = const "{!fixity placeholder here?!}" :: GHC.Fixity -> String
-               | otherwise     = ("{Fixity: "++) . (++"}") . showSDoc . ppr :: GHC.Fixity -> String
+               | otherwise     = ("{Fixity: "++) . (++"}") . showSDoc_ . ppr :: GHC.Fixity -> String
 
 -- | Like 'everything', but avoid known potholes, based on the 'Stage' that
 --   generated the Ast.
diff --git a/ghc-syb-utils.cabal b/ghc-syb-utils.cabal
--- a/ghc-syb-utils.cabal
+++ b/ghc-syb-utils.cabal
@@ -1,5 +1,5 @@
 name:            ghc-syb-utils
-version:         0.2.1.0
+version:         0.2.1.1
 license:         BSD3
 license-file:    LICENSE
 author:          Claus Reinke
@@ -12,7 +12,7 @@
 stability:       provisional
 build-type:      Simple
 cabal-version:   >= 1.6
-tested-with:     GHC ==6.10.4, GHC ==6.12.1
+tested-with:     GHC ==6.10.4, GHC ==6.12.1, GHC ==7.6.1
 
 library
   build-depends:   base >= 4 && < 5