diff --git a/CHANGES b/CHANGES
--- a/CHANGES
+++ b/CHANGES
@@ -89,3 +89,9 @@
 
 0.1.6:
 		* added TickValue renderer
+
+0.1.6.1:
+		* refactor tickPositions
+
+0.1.7:
+		* fix log labels
diff --git a/lib/Graphics/Rendering/Plot/Render/Plot/Axis.hs b/lib/Graphics/Rendering/Plot/Render/Plot/Axis.hs
--- a/lib/Graphics/Rendering/Plot/Render/Plot/Axis.hs
+++ b/lib/Graphics/Rendering/Plot/Render/Plot/Axis.hs
@@ -317,21 +317,15 @@
     lineTo (x+w) (y+h+lw)
     C.stroke
 
-tickPosition :: Scale -> Double -> Double -> Either Int [Double] -> [(Double,Double)]
-tickPosition sc min max (Left n) = 
-  let ticks = take n [(0::Double)..]
-      l = fromIntegral $ n-1
-      pos = map (\x -> min + (max-min)*(x)/l) ticks
-      val = if sc == Log
-            then map (\x -> logBase 10 min + (x/l) * (logBase 10 max - logBase 10 min)) pos
-            else pos
-  in zip pos val
-tickPosition sc min max (Right vs) = 
-  let ticks = vs
-      l = fromIntegral $ length vs - 1
-      pos = ticks -- map (\x -> min + (max-min)*(x/l)) ticks
+tickPosition :: Tick -> Scale -> Double -> Double -> Either Int [Double] -> [(Double,Double)]
+tickPosition tk sc min max nv = 
+  let ticks = either (\n -> take n [(0::Double)..]) id nv
+      l = fromIntegral $ length ticks - 1
+      pos = case nv of
+              (Left _) -> map (\x -> min + (max-min)*(x/l)) ticks
+              (Right _) -> ticks
       val = if sc == Log
-            then map (\x -> logBase 10 min + (x/l) * (logBase 10 max - logBase 10 min)) pos
+            then pos -- map (\x -> logBase 10 min + (x/l) * (logBase 10 max - logBase 10 min)) pos
             else pos
   in zip pos val
 {-
@@ -385,14 +379,14 @@
               let renderAxisTick' = renderAxisTick pc to x y w h sc min max ax sd' tf 
               (majpos',gmaj',tjpos,tmaj') <- case tmj of
                 (Just (Ticks gmaj (TickNumber tmaj))) -> do
-                    let (pos,val) = unzip (tickPosition sc min max (Left tmaj))    
+                    let (pos,val) = unzip (tickPosition Major sc min max (Left tmaj))    
                     let ln = length pos
                     let dl' = if null dl then replicate ln Nothing else map Just dl
                     let majpos = let ones = 1.0 : ones
                                  in zip4 pos (take ln ones) val dl'
                     return $ (Just majpos,Just gmaj,Just pos,Just tmaj)
                 (Just (Ticks gmaj (TickValues tmaj))) -> do
-                    let (pos,val) = unzip (tickPosition sc min max (Right $ toList tmaj))
+                    let (pos,val) = unzip (tickPosition Major sc min max (Right $ toList tmaj))
                         ln = length pos
                     let dl' = if null dl then replicate ln Nothing else map Just dl
                     let majpos = let ones = 1.0 : ones
@@ -401,14 +395,14 @@
                 Nothing -> return (Nothing,Nothing,Nothing,Nothing)
               (minpos',gmin') <- case tmn of
                 (Just (Ticks gmin (TickNumber tmin))) -> do
-                    let (pos',val') = unzip (tickPosition sc min max (Left tmin))
+                    let (pos',val') = unzip (tickPosition Minor sc min max (Left tmin))
                         ln' = length pos'
                         minpos' = zip4 pos' (minorTickLengths tmin (maybe 0 id tmaj')) val' 
                                    (replicate ln' Nothing)
                         minpos = filter (not . (\(p,_,_,_) -> elem p (maybe [] id tjpos))) minpos'
                     return $ (Just minpos,Just gmin)
                 (Just (Ticks gmin (TickValues tmin))) -> do
-                    let (pos,val) = unzip (tickPosition sc min max (Right $ toList tmin))
+                    let (pos,val) = unzip (tickPosition Minor sc min max (Right $ toList tmin))
                         ln = length pos
                         minpos' = let halves = 0.7 : halves
                                  in zip4 pos halves pos (replicate ln Nothing)
@@ -482,7 +476,7 @@
                       (Side _)  -> True
                       (Value _) -> False
        when (t == Major && majlab) $ do
-            let s = if sc == Log then formatTick "10e%.1g" v else formatTick tf v
+            let s = if sc == Log then formatTick "10e%.1g" (logBase 10 v) else formatTick tf v
             let s' = case dl of
                        Nothing -> BareText s
                        Just d  -> d
diff --git a/plot.cabal b/plot.cabal
--- a/plot.cabal
+++ b/plot.cabal
@@ -1,5 +1,5 @@
 Name:                plot
-Version:             0.1.6
+Version:             0.1.7
 License:             BSD3
 License-file:        LICENSE
 Copyright:           (c) A.V.H. McPhail 2010, 2012