diff --git a/cqrs.cabal b/cqrs.cabal
--- a/cqrs.cabal
+++ b/cqrs.cabal
@@ -1,5 +1,5 @@
 Name:                cqrs
-Version:             0.2.0
+Version:             0.2.1
 Synopsis:            Command-Query Responsibility Segregation
 Description:         Haskell implementation of the CQRS architectural pattern.
   An SQLite3-based backend is included.
diff --git a/src/Data/CQRS/GUID.hs b/src/Data/CQRS/GUID.hs
--- a/src/Data/CQRS/GUID.hs
+++ b/src/Data/CQRS/GUID.hs
@@ -28,9 +28,7 @@
 randomWord8 :: IO Word8
 randomWord8 = fmap fromInteger $ randomRIO (0,255)
 
--- | Create a new random GUID. TODO: We should perhaps
--- be using a cryptographically secury random generator
--- for this.
+-- | Create a new random GUID.
 newGUID :: IO (GUID a)
 newGUID = do
   uuid <- sequence $ replicate 32 randomWord8
@@ -42,4 +40,4 @@
 
 -- | Convert ByteString to GUID.
 fromByteString :: ByteString -> GUID a
-fromByteString s = GUID s -- TODO: Should we sanity check?
+fromByteString s = GUID s