diff --git a/HsColour.hs b/HsColour.hs
--- a/HsColour.hs
+++ b/HsColour.hs
@@ -20,7 +20,7 @@
 import System.IO (hSetEncoding, utf8)
 #endif
 
-version = "1.19"
+version = show MAJOR.MINOR
 
 optionTable :: [(String,Option)]
 optionTable = [ ("help",    Help)
diff --git a/Language/Haskell/HsColour/Anchors.hs b/Language/Haskell/HsColour/Anchors.hs
--- a/Language/Haskell/HsColour/Anchors.hs
+++ b/Language/Haskell/HsColour/Anchors.hs
@@ -149,7 +149,9 @@
               . trimContext . takeWhile (/=(Keyword,"where"))
   where
     trimContext ts = if (Keyglyph,"=>") `elem` ts
-                     then tail . dropWhile (/=(Keyglyph,"=>")) $ ts
+                     ||  (Keyglyph,"⇒") `elem` ts
+                     then tail . dropWhile (`notElem`[(Keyglyph,"=>")
+                                                     ,(Keyglyph,"⇒")]) $ ts
                      else ts
 
 -- simple implementation of a string lookup table.
diff --git a/hscolour.cabal b/hscolour.cabal
--- a/hscolour.cabal
+++ b/hscolour.cabal
@@ -1,5 +1,5 @@
 Name: hscolour
-Version: 1.20
+Version: 1.20.1
 Copyright: 2003-2012 Malcolm Wallace; 2006 Bjorn Bringert
 Maintainer: Malcolm Wallace
 Author: Malcolm Wallace
@@ -50,7 +50,9 @@
   Build-depends: base < 10, containers
   Main-is: HsColour.hs
   --ghc-options: -O -W
-  Extensions: 
+  Extensions: CPP
+  cpp-options: -DMAJOR=1 -DMINOR=20
+
 
 
 Source-repository head