* Do not quote twice in maybequoted. Fix issue #40494

packages/fpmkunit/src/fpmkunit.pp

@@ -2428,6 +2428,9 @@ var
   quoted : boolean;
 begin
   quoted:=false;
+  // If first and last are quotes, we assume it is already quoted.
+  if Length(S)>1 and (S[1]='"') and (S[Length(S)]='"') then
+    Exit(S);
   s1:='"';
   for i:=1 to length(s) do
    begin