diff --git a/LICENCE-GPL b/LICENCE-GPL
--- a/LICENCE-GPL
+++ b/LICENCE-GPL
@@ -2,7 +2,8 @@
 		       Version 2, June 1991
 
  Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+     51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
+
  Everyone is permitted to copy and distribute verbatim copies
  of this license document, but changing it is not allowed.
 
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
@@ -79,6 +79,7 @@
 identifier st t@((Keyword,"newtype"):stream) = getConid stream
 identifier st t@((Keyword,"type"):stream)    = getConid stream
 identifier st t@((Keyword,"class"):stream)   = getConid stream
+identifier st t@((Keyword,"instance"):stream)= getInstance stream
 identifier st t@((Comment,_):(Space,"\n"):stream) = identifier st stream
 identifier st stream = Nothing
 
@@ -141,6 +142,15 @@
 context stream@((Keyglyph,"=>"):_) = stream
 context (_:stream) = context stream
 context [] = []
+
+-- the anchor name for an instance is just the entire instance head, minus
+-- any extra context clause
+getInstance = Just . unwords . ("instance":) . words . concat . map snd
+              . trimContext . takeWhile (/=(Keyword,"where"))
+  where
+    trimContext ts = if (Keyglyph,"=>") `elem` ts
+                     then tail . dropWhile (/=(Keyglyph,"=>")) $ ts
+                     else ts
 
 -- simple implementation of a string lookup table.
 -- replace this with something more sophisticated if needed.
diff --git a/hscolour.cabal b/hscolour.cabal
--- a/hscolour.cabal
+++ b/hscolour.cabal
@@ -1,6 +1,6 @@
 Name: hscolour
-Version: 1.19
-Copyright: 2003-2011 Malcolm Wallace, University of York; 2006 Bjorn Bringert
+Version: 1.20
+Copyright: 2003-2012 Malcolm Wallace; 2006 Bjorn Bringert
 Maintainer: Malcolm Wallace
 Author: Malcolm Wallace
 Homepage: http://code.haskell.org/~malcolm/hscolour/