diff --git a/alpaga/ml_parser_generator.ml b/alpaga/ml_parser_generator.ml
index 09dd4b574e7f6dcd3ede2c3e11ed8a0f632dc5cc..01a8a705f9e87a9d827ed34c180a97d48961e7bf 100644
--- a/alpaga/ml_parser_generator.ml
+++ b/alpaga/ml_parser_generator.ml
@@ -90,6 +90,7 @@ let make_parser  (table: string*string -> lltype list)
                           "string" -> "\"\""
                         | "int" -> "0"
                         | "bool" -> "false"
+                        | "char" -> "'a'"
                         | _ -> failwith (Printf.sprintf "Don't know how to generate a default value of type %s" ty)
                 )
           end