diff --git a/src/General/LineCode.pas b/src/General/LineCode.pas
index 0ecbb5ea5..cd79d9cba 100644
--- a/src/General/LineCode.pas
+++ b/src/General/LineCode.pas
@@ -534,7 +534,7 @@ procedure TLineCodeObj.DumpProperties(F: TFileStream; Complete: Boolean; Leaf: B
         for  k := 1 to NumAmpRatings do
             TempStr := TempStr + floattoStrf(AmpRatings[k - 1], ffGeneral, 8, 4) + ',';
         TempStr := TempStr + ']';
-        FSWriteln(F, Format('~ %s=%s', [PropertyName[26]]) + TempStr);
+        FSWriteln(F, Format('~ %s=%s', [PropertyName[26], TempStr]));
         FSWriteln(F, Format('~ %s=%s', [PropertyName[27], PropertyValue[27]]));
     end;
 end;