[fpc-pascal] function now shows bad date (-2 hours)

[Dusan Halicky]

Hi.

I have this simple demo (in ubuntu, using fpc 2.2.0, locale is sk_SK.utf8):

program test;
uses SysUtils;
begin
  writeln(DateTimeToStr(now));
end.

When I compile it and run it it print 13:44:

$ ./test
6-4-08 13:44:32

But the actual date is 15:44:

$ date
Ne apr  6 15:44:35 CEST 2008

What's wrong?