diff --git a/CHANGES b/CHANGES
index 3918b59..77e83a3 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+0.7.1 (2014-01-30)
+* update to nbd.1.0.1
+
 0.7.0 (2014-01-30)
 * vhd-tool: can create vhd-formatted output from 'hybrid' input
 * update to ocaml-vhd 0.7.0
diff --git a/src/impl.ml b/src/impl.ml
index 2232bc5..bac3c02 100644
--- a/src/impl.ml
+++ b/src/impl.ml
@@ -800,8 +800,8 @@ let serve_nbd_to_raw common size c dest _ _ _ _ =
   let rec serve_requests () =
     c.Channels.really_read req >>= fun () ->
     match Request.unmarshal req with
-    | Result.Error e -> fail e
-    | Result.Ok request ->
+    | `Error e -> fail e
+    | `Ok request ->
       if common.Common.debug
       then Printf.fprintf stderr "%s\n%!" (Request.to_string request);
       begin match request.Request.ty with