static O defaultDefaultClassFinder() {
  ret new F1<S, Class>() {
    public Class get(S name) {
      // Fix some buggy concepts files out there
      name = replacePrefix("main$main$", "main$", name);
      
      Class c = get2(name);
      ifdef defaultDefaultClassFinder_debug
        printVars_str("ddcf", +name, +c);
      endifdef
      ret c;
    }
      
    Class get2(S name) {
      // special invocation to find main class irrelevant of name
      if (eq(name, "<main>")) ret mc();
      
      try object Class c = findClass_fullName(name);
      
      if (startsWithAny(name, "loadableUtils.utils$", "main$", mcDollar()))
        for (S pkg : ll("loadableUtils.utils$", mcDollar())) {
          S newName = pkg + afterDollar(name);
          ifdef defaultDefaultClassFinder_debug
            print("ddcf looking for ", newName);
          endifdef
          try object Class c = findClass_fullName(newName);
        }
      null;
    }
  };
}