Fixed a nasty bug in selectgen.ml that I introduced last weel (    Printf.fprintf stderr "QQQQQQQQ %s\n%!" s;)