diff --git a/src/ezfio.ml b/src/ezfio.ml
index 23a8337..a0bc0bd 100644
--- a/src/ezfio.ml
+++ b/src/ezfio.ml
@@ -380,7 +380,7 @@ let read_array type_conversion group name : 'a ezfio_array =
         Ezfio_item (Array.init nmax (fun i->
           let buffer = trim (input_line in_channel) in
           try type_conversion buffer with
-          | Failure s -> failwith (s^": "^buffer))
+          | Failure s -> failwith (s^": "^buffer)))
       in
       (* Read multi-dimensional arrays *)
       let rec read_nd = function