diff --git a/src/Graphics/X11/Turtle/XTools.hs b/src/Graphics/X11/Turtle/XTools.hs
--- a/src/Graphics/X11/Turtle/XTools.hs
+++ b/src/Graphics/X11/Turtle/XTools.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+
 module Graphics.X11.Turtle.XTools(
 	-- * types
 	Display,
@@ -90,6 +92,7 @@
 import Foreign.Ptr(Ptr)
 import Foreign.Storable(peek)
 import Foreign.Marshal.Array(advancePtr)
+import Control.Exception(catch, SomeException)
 
 --------------------------------------------------------------------------------
 
@@ -143,7 +146,7 @@
 setForegroundXT dpy gc (ColorName cn) = let
 	cm = defaultColormap dpy $ defaultScreen dpy in
 	(allocNamedColor dpy cm cn >>= setForeground dpy gc . color_pixel . fst)
-		`catch` const (putStrLn "no such color")
+		`catch` \(_ :: SomeException) -> (putStrLn "no such color")
 
 copyAreaXT :: Display -> Drawable -> Drawable -> GC ->
 	Dimension -> Dimension -> IO ()
diff --git a/xturtle.cabal b/xturtle.cabal
--- a/xturtle.cabal
+++ b/xturtle.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.6
 
 name:		xturtle
-version:	0.1.11
+version:	0.1.12
 stability:	experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>