(set! (.#.name  o) (dzn:get (.locator o) <#x:port-type >))