sS dm_moduleID(O module) {
  ret strOrNull(getOpt(dm_getStem(module), 'id));
}

sS dm_moduleID() {
  ret dm_moduleID(dm_current_mandatory_generic());
}