Error in Unit Testing

[dom]

### Error in:   5
Third BoundsError "Value not in extension constraint: could be invalid value or unsupported extension"

[dom]

Looks like a bug in BitPut?. The darcs version works but 0.3.1 in hackage doesn't.

dom@lagrange:~/backup/asn15/asn1> darcs whatsnew
{
hunk ./Language/ASN1/PER/Integer.hs 22
-import Data.Binary.Strict.BitPut
+import Data.Binary.BitPut
hunk ./Language/ASN1/PER/IntegerAux.hs 33
-import Data.Binary.Strict.BitPut
+import Data.Binary.BitPut
hunk ./Language/ASN1/PER/IntegerAux.hs 60
-to2sComplementUsingReverse :: Integer -> B.ByteString
+to2sComplementUsingReverse :: Integer -> BL.ByteString
hunk ./Language/ASN1/PER/IntegerAux.hs 62
-   B.reverse (B.map reverseBits (runBitPut (to2sComplementReverse n)))
+   BL.reverse (BL.map reverseBits (runBitPut (to2sComplementReverse n)))
}

With these changes, all tests pass:

+++ OK, passed 100 tests.
Cases: 11  Tried: 11  Errors: 0  Failures: 0
Counts {cases = 11, tried = 11, errors = 0, failures = 0}