Fixes #1422 in trunk. Need to merge to branch as well

git-svn-id: https://svn.modelica.org/projects/Modelica/trunk@7293 7ce873d0-865f-4ce7-a662-4bb36ea78beb