diff --git a/goatee-gtk.cabal b/goatee-gtk.cabal
--- a/goatee-gtk.cabal
+++ b/goatee-gtk.cabal
@@ -1,5 +1,5 @@
 name: goatee-gtk
-version: 0.3.1
+version: 0.3.1.1
 synopsis: A monadic take on a 2,500-year-old board game - GTK+ UI.
 category: Game
 license: AGPL-3
@@ -34,7 +34,7 @@
         directory >= 1.1 && < 1.3,
         filepath >= 1.3 && < 1.5,
         glib >= 0.13 && < 0.14,
-        gtk >= 0.13 && < 0.14,
+        gtk >= 0.13 && < 0.15,
         goatee >= 0.3 && < 0.4,
         mtl >= 2.1 && < 2.3,
         parsec >= 3.1 && < 3.2
@@ -75,7 +75,7 @@
 executable goatee-gtk
     build-depends:
         base >= 4 && < 5,
-        gtk >= 0.13 && < 0.14,
+        gtk >= 0.13 && < 0.15,
         goatee-gtk
     ghc-options: -W -fwarn-incomplete-patterns -fwarn-unused-do-bind
     hs-source-dirs: src-exe
@@ -85,7 +85,7 @@
     build-depends:
         base >= 4 && < 5,
         goatee-gtk,
-        HUnit >= 1.2 && < 1.3
+        HUnit >= 1.2 && < 1.4
     ghc-options: -W -fwarn-incomplete-patterns -fwarn-unused-do-bind
     hs-source-dirs: tests
     main-is: Test.hs
diff --git a/src/Game/Goatee/Ui/Gtk/Actions.hs b/src/Game/Goatee/Ui/Gtk/Actions.hs
--- a/src/Game/Goatee/Ui/Gtk/Actions.hs
+++ b/src/Game/Goatee/Ui/Gtk/Actions.hs
@@ -54,7 +54,7 @@
 import Control.Monad (forM, unless, void, when)
 import qualified Data.Foldable as F
 import Data.IORef (IORef, newIORef, readIORef, writeIORef)
-import Data.Maybe (catMaybes, fromMaybe, isJust)
+import Data.Maybe (fromMaybe, isJust)
 import Game.Goatee.Ui.Gtk.Common
 import Game.Goatee.Ui.Gtk.Utils
 import Game.Goatee.Lib.Board
@@ -316,9 +316,9 @@
 
   -- Tool actions.
   toolActions <- actionGroupNew "Tools"
-  toolActionList <- fmap catMaybes $ forM toolTypes $ \toolType -> do
+  toolActionList <- forM toolTypes $ \toolType -> do
     AnyTool tool <- findTool ui toolType
-    return $ Just RadioActionEntry
+    return RadioActionEntry
       { radioActionName = stringToGlib $ show toolType
       , radioActionLabel = stringToGlib $ toolLabel tool
       , radioActionStockId = Nothing