X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=mlvirsh%2Fmlvirsh.ml;h=6bf695a96f87d94b7c227dc5669eb3d2a89cc73b;hb=2d54c385902ef411f9329d72bc26910d768937d6;hp=c074bc6fbff352bcb9131047c076106ea417e142;hpb=b1461d62ff1058e57e3e85206a2c3eef4119966c;p=ocaml-libvirt.git

diff --git a/mlvirsh/mlvirsh.ml b/mlvirsh/mlvirsh.ml
index c074bc6..6bf695a 100644
--- a/mlvirsh/mlvirsh.ml
+++ b/mlvirsh/mlvirsh.ml
@@ -494,7 +494,7 @@ let do_command =
       cmd3 print_string
 	(fun dom offset size ->
 	   let buf = String.create size in
-	   D.memory_peek dom D.Virtual offset size buf 0;
+	   D.memory_peek dom [D.Virtual] offset size buf 0;
 	   buf)
 	(arg_readonly_connection domain_of_string)
 	Int64.of_string int_of_string,