let pool () =
    match !context with
      | [] -> Wp_parameters.fatal "Bad context (no pool available)"
      | c::_ -> c.pool