static L<Pair<Instance, S>> heapWalker_pathToGCRootWithFieldNames(Instance baseInstance) {
  bool debug = false;
  L<Pair<Instance, S>> path = map(func(Instance i) -> Pair<Instance, S> { pair(i, null) }, heapWalker_pathToGCRoot(baseInstance));
  bigLoop: for (int i = 1; i < l(path); i++) {
    long i0 = path.get(i-1).a.getInstanceId();
    Instance i1 = path.get(i).a;
    L<FieldValue> fieldValues;
    if (eq(shortClassName(i1), 'ClassDumpInstance))
      fieldValues = (L<FieldValue>) call(get(i1, 'classDump), 'getStaticFieldValues);
    else
      fieldValues = i1.getFieldValues();
    
    if (debug) {
      print("Fields: " + map(fieldValues, func(FieldValue fv) -> S { fv.getField().getName() }));
      print("Types: " + map className(fieldValues));
      print("Looking for: " + i0);
      print("Instances: " + map(filterByType(ObjectFieldValue.class, fieldValues), func(ObjectFieldValue fv) -> Long { fv.getInstanceId() }));
    }
    for (FieldValue fv : fieldValues)
      if (fv instanceof ObjectFieldValue && ((ObjectFieldValue) fv).getInstanceId() == i0) {
        path.get(i).b = fv.getField().getName();
        continue bigLoop;
      }
  }
  ret path;
}

Began life as a copy of #1016889