---
customize/firstboot.ml | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/customize/firstboot.ml b/customize/firstboot.ml
index c4af7a9..29ec544 100644
--- a/customize/firstboot.ml
+++ b/customize/firstboot.ml
@@ -30,7 +30,9 @@ let unix2dos s =
let sanitize_name =
let rex = Str.regexp "[^A-Za-z0-9_]" in
fun n ->
- Str.global_replace rex "-" n
+ let n = Str.global_replace rex "-" n in
+ let len = String.length n and max = 60 in
+ if len >= max then String.sub n 0 max else n
(* For Linux guests. *)
module Linux = struct
--
2.3.1