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