--- ibx/trunk/fbintf/testsuite/Test18.pas	2021/07/08 09:26:14	344
+++ ibx/trunk/fbintf/testsuite/Test18.pas	2021/08/23 14:22:29	345
@@ -243,7 +243,7 @@ begin
         writeln(OutFile,'BigInteger = ', ByName('BigInteger').GetAsString);
         DumpBCD(ByName('BigInteger').GetAsBCD);
       end;
-      writeln;
+      writeln(Outfile);
     end;
   finally
     Results.Close;