MetaModelica string match issues

[Adrian Pop]

The match below will fail when ident is "IncludeDirectory", it will not return "bad".

ident := "IncludeDirectory";
x := match ident
  case "choices"              then "";
  case "Documentation"        then "";
  case "Dialog"               then "";
  case "Diagram"              then "";
  case "Icon"                 then "";
  case "Line"                 then "";
  case "Placement"            then "";
  case "preferredView"        then "";
  case "conversion"           then "";
  case "defaultComponentName" then "";
  case "revisionId"           then "";
  case "uses"                 then "";
  else then "bad";
end match;

This because the match is transformed to switch on the hash of the string and after the case is selected a comparison is made and if the comparison fails it jumps directly to the end of the switch. It should jump to the default case of the switch if the string comparison fails.