method iter_service_nodes f n =
    let s = self#service n in
    let apply n' =
      if n' <> n && self#service n' = s then
        f n' in
    self#iter_nodes apply