diff --git a/Util/Debug.hs b/Util/Debug.hs
--- a/Util/Debug.hs
+++ b/Util/Debug.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP, ScopedTypeVariables #-}
 
 -- |
 -- MODULE        : Debug
@@ -39,10 +39,9 @@
      -- to the evaluation.
   ) where
 import System.IO as IO
-import System.IO.Error as IO
 
 import System.IO.Unsafe
-import Control.Exception
+import Control.Exception as Exception
 
 import Util.WBFiles
 
@@ -50,13 +49,13 @@
 openDebugFile =
    do
       debugFileName <- getDebugFileName
-      IO.catch (
+      Exception.catch (
          do
              handle <- openFile debugFileName WriteMode
              hSetBuffering handle NoBuffering
              return (Just handle)
          )
-         (\ _-> return Nothing)
+         (\ (_ :: IOException) -> return Nothing)
 
 debugFile = unsafePerformIO openDebugFile
 debugFile :: Maybe Handle
@@ -75,12 +74,12 @@
 
 debugAct mess act =
                do
-                  res <- Control.Exception.try act
+                  res <- Exception.try act
                   case res of
                      Left error ->
                         do
                            debug ("Debug.debug caught "++mess)
-                           throw error
+                           throw (error :: SomeException)
                      Right success -> return success
 
 #else
@@ -120,7 +119,7 @@
 alwaysDebugAct :: String -> IO a -> IO a
 alwaysDebugAct mess act =
    do
-      res <- Control.Exception.try act
+      res <- Exception.try act
       case res of
          Left error ->
             do
@@ -140,7 +139,7 @@
 
 wrapErrorIO :: String -> a -> IO a
 wrapErrorIO str value =
-   Control.Exception.catch (value `seq` return value)
+   Exception.catch (value `seq` return value)
       (\ mess -> error (str ++ ":"++ show (mess :: ErrorCall)))
 
 
diff --git a/Util/WBFiles.hs b/Util/WBFiles.hs
--- a/Util/WBFiles.hs
+++ b/Util/WBFiles.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE ForeignFunctionInterface, ScopedTypeVariables #-}
 
 -- |
 -- Description : Option processing
@@ -207,12 +207,12 @@
 import Data.Char
 import Util.CompileFlags
 import System.IO
-import System.IO.Error
 import Data.List
 import Control.Monad
 import qualified System.Environment as System
 import System.Exit(exitWith,ExitCode(..))
 
+import qualified Control.Exception as Exception
 import Control.Concurrent
 import qualified Data.Map as Map
 import System.IO.Unsafe
@@ -843,9 +843,9 @@
             let
                option = optionName arg
                envVar = "UNI"++(map toUpper option)
-            valueOpt <- try (System.getEnv envVar)
+            valueOpt <- Exception.try (System.getEnv envVar)
             case valueOpt of
-               Left error -> return prev
+               Left (_ :: Exception.IOException) -> return prev
                Right newValue ->
                   tryToAddValue (argType arg) option newValue prev
 
diff --git a/uni-util.cabal b/uni-util.cabal
--- a/uni-util.cabal
+++ b/uni-util.cabal
@@ -1,5 +1,5 @@
 name:           uni-util
-version:        2.2.1.1
+version:        2.2.1.2
 build-type:     Simple
 license:        LGPL
 license-file:   LICENSE
@@ -14,7 +14,6 @@
  They are kept for compatibility reason and put on hackage to ease
  installation.
 cabal-version:  >= 1.4
-Tested-With:    GHC==7.0.2
 
 extra-source-files: include/new_object.h include/default_options.h