diff --git a/tests/utils/dotest.pp b/tests/utils/dotest.pp index 8cc55c0b10..6f49bdf73f 100644 --- a/tests/utils/dotest.pp +++ b/tests/utils/dotest.pp @@ -1613,6 +1613,8 @@ procedure getargs; 'L' : begin UniqueSuffix:=Para; + if UniqueSuffix='' then + UniqueSuffix:=toStr(system.GetProcessID); end; 'M' : EmulatorName:=Para;