diff --git a/tests/test/tcpstrshortstr2ansistr.pp b/tests/test/tcpstrshortstr2ansistr.pp
index a3be8c73cb..54eef12c04 100644
--- a/tests/test/tcpstrshortstr2ansistr.pp
+++ b/tests/test/tcpstrshortstr2ansistr.pp
@@ -6,7 +6,7 @@ uses
   sysutils;
   
 type  
-  ts866 = type AnsiString(866)
+  ts866 = type AnsiString(866);
   ts1252 = type AnsiString(1252);
 
   procedure doerror(ANumber : Integer);