X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FWords.hs;fp=Codec%2FAudio%2FWavPack%2FWords.hs;h=92282ccc420518db3464368323de4a573e4baec8;hp=ae61d8a6e8e097e88f37d8a77ff4448ba2faf8ec;hb=2860b0f8e75b1c9ee60bf301a6035c5397adc5ad;hpb=ce16c8e93610c668816f6313df096625f509b26b

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index ae61d8a..92282cc 100644
--- a/Codec/Audio/WavPack/Words.hs
+++ b/Codec/Audio/WavPack/Words.hs
@@ -162,7 +162,7 @@ getWordsLossless isMono w0 bs0 nSamples0
       go2 0 w bs n v
           = let ent  = getEntropy n w
                 low  = 0
-                high = getMedian0 ent
+                high = getMedian0 ent - 1
                 ent' = decMedian0 ent
                 w'   = setEntropy ent' n w
             in