static S programIDWithCase() {
  ret nempty(caseID())
    ? programID() + "/" + quoteUnlessIdentifierOrInteger(caseID)
    : programID();
}