--- a/RegressionTests__IntegerTest.st	Mon May 13 16:09:10 2013 +0200
+++ b/RegressionTests__IntegerTest.st	Mon May 13 16:09:56 2013 +0200
@@ -1847,6 +1847,18 @@
         ]
     ].
 
+    #(
+        #[ 1 2 3 4 5 6 7 8 9]       16r090807060504030201
+        #[ 1 2 3 4 5 6 7 8 9 10]    16r0a090807060504030201
+        #[ 1 2 3 4 5 6 7 8 9 10 11] 16r0b0a090807060504030201
+    ) pairWiseDo:[:bytes :expected |
+        0 to:16 do:[:nNullBytes |
+            nullBytes := ByteArray new:nNullBytes withAll:0.
+            l := LargeInteger digitBytes:(bytes , nullBytes).
+            self assert:( l compressed = expected ).
+        ]
+    ].
+
     "
      self basicNew testLargeCompression1
     "