X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_mbr.ml;h=4acbaf39e1f8fd6c8b1a4a058964b57b1d8d162a;hb=15ea8d7da6be553a1a21611df57466144c56f129;hp=6839380c22db3d1939c5759dbc199fbd0a0c3b1b;hpb=a2eceb20d16bb7f9e3c7cea1d5d2525ab5d018e6;p=virt-df.git

diff --git a/lib/diskimage_mbr.ml b/lib/diskimage_mbr.ml
index 6839380..4acbaf3 100644
--- a/lib/diskimage_mbr.ml
+++ b/lib/diskimage_mbr.ml
@@ -185,14 +185,14 @@ and probe_extended_partition max dev start =
 	    * to the current sector.
 	    *)
 	   let ppriv =
-	     { ppriv with mbr_part_start = ppriv.mbr_part_start + start } in
+	     { ppriv with mbr_part_start = ppriv.mbr_part_start +^ start } in
 
 	   let (next, npriv) = parse_mbr_entry next in
 
 	   if next.part_status = NullEntry then
 	     [ part, ppriv ]		(* End of list. *)
 	   else (
-	     let start_of_next = start + npriv.mbr_part_start in
+	     let start_of_next = start +^ npriv.mbr_part_start in
 	     (part, ppriv) ::
 	       probe_extended_partition (max-1) dev start_of_next
 	   )