diff --git a/ghc/compiler/utils/Maybes.lhs b/ghc/compiler/utils/Maybes.lhs
index b29dd9c56454180f445f305127474df36e0c90c2..3cf3221ee6411727e5199f496c183ee440f84e0c 100644
--- a/ghc/compiler/utils/Maybes.lhs
+++ b/ghc/compiler/utils/Maybes.lhs
@@ -28,9 +28,6 @@ module Maybes (
 	catMaybes
     ) where
 
-CHK_Ubiq()		-- debugging consistency check
-import Unique  (Unique)	-- only for specialising
-
 #if __GLASGOW_HASKELL__ >= 204
 import Maybe( catMaybes, mapMaybe )
 #endif
@@ -131,12 +128,6 @@ assocMaybe alist key
   where
     lookup []		  = Nothing
     lookup ((tv,ty):rest) = if key == tv then Just ty else lookup rest
-
-{-# SPECIALIZE assocMaybe
-	:: [(FAST_STRING,   b)] -> FAST_STRING -> Maybe b
-	 , [(Int,           b)] -> Int         -> Maybe b
-	 , [(Unique,        b)] -> Unique      -> Maybe b
-  #-}
 \end{code}
 
 @mkLookupFun eq alist@ is a function which looks up