--- virt-mem-0.3.1.orig/lib/virt_mem_dump.ml	2008-08-17 12:30:04.000000000 +0100
+++ virt-mem-0.3.1/lib/virt_mem_dump.ml	2008-12-05 19:50:27.000000000 +0000
@@ -80,9 +80,9 @@
 
   while !len > 0 do
     let bits = min !len 8 in
-    let byte, off', len' =
+    let byte =
       Bitstring.extract_char_unsigned data !off !len bits in
-    off := off'; len := len';
+    off := !off + bits; len := !len + bits;
 
     let byte = byte lsl (8-bits) in
     fprintf chan "%02x " byte;