diff --git a/src/Synthesizer/Basic/Wave.hs b/src/Synthesizer/Basic/Wave.hs
--- a/src/Synthesizer/Basic/Wave.hs
+++ b/src/Synthesizer/Basic/Wave.hs
@@ -582,17 +582,17 @@
 
 {- |
 Power function.
--}
-
-
-{- |
-Roughly the map @\x p -> x**p@
+Roughly the map @\p x -> x**p@
 but retains the sign of @x@ and
-normalizes the mapping over @[-1,1]@ to L2 norm of 1.
+it should normalize the mapping over @[-1,1]@ to an L2 norm of 1,
+but I got this one wrong.
+
+The sign is flipped with respect to 'saw' and 'sine'
+which is an historical artifact.
 -}
 {-# INLINE powerNormed #-}
 powerNormed :: (Absolute.C a, Trans.C a) => a -> T a a
-powerNormed p = fromFunction $ \x -> power01Normed p (2*x-1)
+powerNormed p = distort (negate . power01Normed p) saw
 
 -- | auxiliary
 {-# INLINE power01Normed #-}
diff --git a/synthesizer-core.cabal b/synthesizer-core.cabal
--- a/synthesizer-core.cabal
+++ b/synthesizer-core.cabal
@@ -1,5 +1,5 @@
 Name:           synthesizer-core
-Version:        0.8.0.1
+Version:        0.8.0.2
 License:        GPL
 License-File:   LICENSE
 Author:         Henning Thielemann <haskell@henning-thielemann.de>
@@ -37,7 +37,7 @@
 
 
 Source-Repository this
-  Tag:         0.8.0.1
+  Tag:         0.8.0.2
   Type:        darcs
   Location:    http://code.haskell.org/synthesizer/core/