sS dm_programID() {
  ret programID();
}

sS dm_programID(O mod) {
  if (mod == null) null;
  mod = dm_getModule(mod);
  if (hasSuperclassShortNamed(mod, 'DynModule))
    ret programID(mod);
  null;
}