diff --git a/curve25519.cabal b/curve25519.cabal
--- a/curve25519.cabal
+++ b/curve25519.cabal
@@ -1,5 +1,5 @@
 name:                curve25519
-version:             0.2
+version:             0.2.1
 synopsis:            Fast implementations of the curve25519 elliptic curve primitives.
 description:         Haskell bindings and extensions to the curve25519-donna
                      codebase.
diff --git a/src/Crypto/Curve25519/Pure.hs b/src/Crypto/Curve25519/Pure.hs
--- a/src/Crypto/Curve25519/Pure.hs
+++ b/src/Crypto/Curve25519/Pure.hs
@@ -89,7 +89,7 @@
            unsafePackCStringFinalizer ptrc 32 (free ptrc)
 
 basePoint :: ByteString
-basePoint = BS.replicate 31 0 `BS.append` BS.singleton 9
+basePoint = BS.cons 9 (BS.replicate 31 0)
 
 buildNumber :: ByteString -> Integer
 buildNumber bstr = run 0 (BS.unpack bstr)