svoid dm_deleteZeroIDModules() {
  for (virtual Module m : filterByField(dm_listStems(), id := 0L)) {
    print("Have 0-id module: " + m);
    print("_concepts: " + rget _concepts(m));
    O concepts = dm_callOS db_mainConcepts();
    Long actualID = cast keyForValue(m, (Map) get(concepts, 'concepts));
    print("Actual ID: " + actualID);
    if (actualID != null) {
      print("Trying to delete.");
      setAll(m, id := actualID, _concepts := concepts);
      call(m, 'delete);
    }
  }
}