diff --git a/CHANGES b/CHANGES
--- a/CHANGES
+++ b/CHANGES
@@ -1,4 +1,21 @@
 
+
+0.9.0 to 0.10.0:
+
+  * Updated to track changes in Wumpus-Basic.
+
+0.8.0 to 0.9.0:
+
+  * Made internal modules visible rather than hidden and changed 
+    the module path to be @Wumpus.Microprint@ (lower-case p) 
+    rather then @Wumpus.MicroPrint@ (upper-case P).
+
+  * Added a more efficient builder than the Teletype.
+
+0.7.0 to 0.8.0:
+
+  * Internal changes to work with latest @Wumpus-Basic@.
+
 0.6.0 to 0.7.0:
 
   * Again, internal changes to work with latest @Wumpus-Basic@.
diff --git a/demo/Demo01.hs b/demo/Demo01.hs
--- a/demo/Demo01.hs
+++ b/demo/Demo01.hs
@@ -18,7 +18,7 @@
 main = do 
     createDirectoryIfMissing True "./out/"
     inp <- readFile "Demo01.hs"	  -- This file
-    let gtext = runTokenizer (haskellTokenizer moccasin green) inp
+    let gtext = runTokenizer (haskellTokenizer indian_red teal) inp
     let pic1  = makePicture gtext
     writeEPS_latin1 "./out/microprint01.eps" pic1
     writeSVG_latin1 "./out/microprint01.svg" pic1
diff --git a/src/Wumpus/Microprint/Render.hs b/src/Wumpus/Microprint/Render.hs
--- a/src/Wumpus/Microprint/Render.hs
+++ b/src/Wumpus/Microprint/Render.hs
@@ -36,6 +36,7 @@
 
 import Data.AffineSpace				-- package: vector-space
 
+import Control.Applicative
 import Data.Monoid
 
 --------------------------------------------------------------------------------
@@ -58,13 +59,13 @@
 -- | Just a filled rectangle.
 --
 greekF :: DrawWordF
-greekF rgb w h _ = localLG (secondaryColour rgb) (filledRectangle w h)
+greekF rgb w h _ = localize (fillColour rgb) . (filledRectangle w h)
 
 
 borderedF :: DrawWordF
-borderedF rgb w h i = background `lgappend` ticks
+borderedF rgb w h i = mappend <$> background <*> ticks
   where
-    background  = localLG (secondaryColour rgb) (borderedRectangle w h)
+    background  = localize (fillColour rgb) . (borderedRectangle w h)
     v1          = hvec $ w / fromIntegral i
     ticks pt    = mconcat $ map (straightLine (vvec h)) 
     	                  $ take (i-1) $ iterate (.+^ v1) (pt .+^ v1)
@@ -73,7 +74,7 @@
 -- | A stroked line.
 --
 strokelineF :: DrawWordF
-strokelineF rgb w _ _ = localLG (primaryColour rgb) (straightLine (hvec w))
+strokelineF rgb w _ _ = localize (strokeColour rgb) . (straightLine (hvec w))
 
 
 render :: RenderScalingCtx -> DrawWordF -> GreekText -> Drawing Double ()
diff --git a/src/Wumpus/Microprint/VersionNumber.hs b/src/Wumpus/Microprint/VersionNumber.hs
--- a/src/Wumpus/Microprint/VersionNumber.hs
+++ b/src/Wumpus/Microprint/VersionNumber.hs
@@ -22,7 +22,7 @@
 
 -- | Version number
 --
--- > (0,9,0)
+-- > (0,10,0)
 --
 wumpus_microprint_version :: (Int,Int,Int)
-wumpus_microprint_version = (0,9,0)
+wumpus_microprint_version = (0,10,0)
diff --git a/wumpus-microprint.cabal b/wumpus-microprint.cabal
--- a/wumpus-microprint.cabal
+++ b/wumpus-microprint.cabal
@@ -1,5 +1,5 @@
 name:             wumpus-microprint
-version:          0.9.0
+version:          0.10.0
 license:          BSD3
 license-file:     LICENSE
 copyright:        Stephen Tetley <stephen.tetley@gmail.com>
@@ -24,17 +24,9 @@
   .
   Changelog:
   .
-  0.8.0 to 0.9.0:
-  .
-  * Made internal modules visible rather than hidden and changed 
-    the module path to be @Wumpus.Microprint@ (lower-case p) 
-    rather then @Wumpus.MicroPrint@ (upper-case P).
-  .
-  * Added a more efficient builder than the Teletype.
-  .
-  0.7.0 to 0.8.0:
+  0.9.0 to 0.10.0:
   .
-  * Internal changes to work with latest @Wumpus-Basic@.
+  * Updated to track changes in Wumpus-Basic.
   .
   .
 build-type:         Simple
@@ -50,8 +42,8 @@
   hs-source-dirs:     src
   build-depends:      base              <  5, 
                       vector-space      >= 0.6,
-                      wumpus-core       == 0.34.0,
-                      wumpus-basic      == 0.9.0
+                      wumpus-core       == 0.35.0,
+                      wumpus-basic      == 0.10.0
 
   
   exposed-modules: