* fixed searching of ar for arfinishcmd

git-svn-id: branches/fixes_2_0@5370 -

compiler/link.pas

@@ -663,6 +663,7 @@ begin
   if (target_ar.arfinishcmd <> '') then
     begin
       SplitBinCmd(target_ar.arfinishcmd,binstr,cmdstr);
+      binstr := FindUtil(utilsprefix + binstr);
       Replace(cmdstr,'$LIB',maybequoted(current_module.staticlibfilename^));
       success:=DoExec(binstr,cmdstr,false,true);
     end;