Current-induced motion of a domain wall in a magnetic nanowire