Index: /trunk/liquidsoap/src/synth/synth.ml
===================================================================
--- /trunk/liquidsoap/src/synth/synth.ml	(revision 6701)
+++ /trunk/liquidsoap/src/synth/synth.ml	(revision 6702)
@@ -46,5 +46,5 @@
   method note_on n v =
     (* Limit the number of notes for now. TODO: parameter *)
-    if List.length notes > 8 then notes <- List.rev (List.tl (List.rev notes));
+    if List.length notes > 16 then notes <- List.rev (List.tl (List.rev notes));
     notes <- (n, ref (self#note_init n v))::notes