diff --git a/ChangeLog.md b/ChangeLog.md
index 118f5e0..b564418 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,6 @@
 # Changelog for passman
 
 ## Unreleased changes
+
+- corrected a bug that was causing the pwGenerate function to hang occasionally.
+  - this may cause some passwords to be generated differently
diff --git a/src/Password.hs b/src/Password.hs
index a33e645..8d0675c 100644
--- a/src/Password.hs
+++ b/src/Password.hs
@@ -332,7 +332,7 @@ mkPass (x:xs) p = let p' = nextPolicy x p in
 mkPool :: B.ByteString -> String
 mkPool = toB64 . raw where
   raw x = let x' = mkHash x in
-    x' `B.append` raw x
+    x' `B.append` raw x'
 
 mkSeed :: String -> PWData -> B.ByteString
 mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt)