diff --git a/Language/Haskell/HsColour/Classify.hs b/Language/Haskell/HsColour/Classify.hs
--- a/Language/Haskell/HsColour/Classify.hs
+++ b/Language/Haskell/HsColour/Classify.hs
@@ -47,7 +47,7 @@
 isLinearSpace c = c `elem` " \t\f" -- " \t\xa0"
 
 -- Glue sequences of tokens into more useful blobs
-glue (q:".":n:rest) | Char.isUpper (head q)	-- qualified names
+glue (q:".":n:rest) | isUpper (head q)	-- qualified names
                     = glue ((q++"."++n): rest)
 glue ("`":rest) =				-- `varid` -> varop
   case glue rest of
diff --git a/hscolour.cabal b/hscolour.cabal
--- a/hscolour.cabal
+++ b/hscolour.cabal
@@ -1,5 +1,5 @@
 Name: hscolour
-Version: 1.24.3
+Version: 1.24.4
 Copyright: 2003-2017 Malcolm Wallace; 2006 Bjorn Bringert
 Maintainer: Malcolm Wallace
 Author: Malcolm Wallace