static S shortenClassName(S name) {
  ret name == null ? null : substring(name, xIndexOf(name, '$')+1);
}