Bug in emptySampleVar

Hello!
In my opinion there is a bug in the emptySampleVar-function in 
Control.Concurrent.SampleVar.

emptySampleVar :: SampleVar a -> IO ()
emptySampleVar v = do
   (readers, var) <- takeMVar v
   if readers >= 0 then
        takeMVar var >>                         <- I think this line is missing
        putMVar v (0,var)
   else
        putMVar v (readers,var)

Without the line a writeSampleVar suspends after an emptySampleVar on a full 
SampleVar.

best regards
Jan