diff --git a/_oasis b/_oasis
index eb863eaa6..0b3a23769 100644
--- a/_oasis
+++ b/_oasis
@@ -2,7 +2,7 @@ OASISFormat:           0.4
 OCamlVersion:          >= 4.02.3
 FindlibVersion:        >= 1.3.2
 Name:                  ppx_let
-Version:               113.43+70
+Version:               114.01+04
 Synopsis:              Monadic let-bindings
 Authors:               Jane Street Group, LLC <opensource@janestreet.com>
 Copyrights:            (C) 2015-2016 Jane Street Group LLC <opensource@janestreet.com>
diff --git a/src/ppx_let.ml b/src/ppx_let.ml
index b3079c11d..ce38f4e08 100644
--- a/src/ppx_let.ml
+++ b/src/ppx_let.ml
@@ -63,7 +63,7 @@ let bind_apply ~loc extension_name ~arg ~fn =
   in
   pexp_apply ~loc
     (eoperator ~loc (Extension_name.operator_name extension_name))
-    [("", arg); (fn_label, fn)]
+    [(Nolabel, arg); (Labelled fn_label, fn)]
 ;;
 
 let maybe_open extension_name ~to_open:module_to_open expr =
@@ -89,7 +89,7 @@ let expand_let extension_name ~loc bindings body =
       ppat_tuple ~loc [p; acc])
   in
   bind_apply ~loc extension_name ~arg:nested_boths
-    ~fn:(pexp_fun ~loc "" None nested_patterns body)
+    ~fn:(pexp_fun ~loc Nolabel None nested_patterns body)
 ;;
 
 let expand_match extension_name ~loc expr cases =
diff --git a/test/test-locations.mlt b/test/test-locations.mlt
index 79027c87f..765b8b345 100644
--- a/test/test-locations.mlt
+++ b/test/test-locations.mlt
@@ -13,6 +13,6 @@ end
 let _ = [%map_open let x = return 42 and y = f 42 in ()]
 [%%expect{|
 Line _, characters 45-49:
-Error: This expression has type doc:bytes -> (int * bytes) Let_syntax.t
+Error: This expression has type doc:string -> (int * string) Let_syntax.t
        but an expression was expected of type 'a Let_syntax.t
 |}]