accepted in Delphi mode + extra test case where something similar has to succeed) git-svn-id: trunk@5698 -