set s [parse-planet-spec $cmdr(gal-seed) $v]
if {[string equal $s ""]} { error "bad planet spec `$v'" }
if {![in-galaxy-p $cmdr(gal-seed) $s]} {
set s [parse-planet-spec $cmdr(gal-seed) $v]
if {[string equal $s ""]} { error "bad planet spec `$v'" }
if {![in-galaxy-p $cmdr(gal-seed) $s]} {