systemunit.pas: remove possible deadlock in shellSubst

1 files changed, 6 insertions, 5 deletions

diff --git a/systemunit.pas b/systemunit.pas
index 9b054ca..a10229b 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -126,12 +126,13 @@ function shellSubst(s: string): string;
 var
   name: string;
 begin
-  result:=s;
-  while pos('${',result)>0 do begin
-    s:=erstesArgument(result,'${',false);
-    name:=erstesArgument(result,'}',false);
-    result:=s+getEnvironmentVariable(name)+result;
+  result:='';
+  while pos('${',s)>0 do begin
+    result:=result+erstesArgument(s,'${',false);
+    name:=erstesArgument(s,'}',false);
+    result:=result+getEnvironmentVariable(name);
   end;
+  result:=result+s;
 end;
 
 function homeVerzeichnis: string;