fixed test

git-svn-id: trunk@14613 -

tests/test/tgeneric17.pp

@@ -7,7 +7,7 @@ type
     procedure Assign(Source: TGListItem);
   end;
 
-procedure TGListItem.Assign(Source: TGListItem)
+procedure TGListItem.Assign(Source: TGListItem);
 begin
   FNext := Source;
 end;