X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/257fdc360d4c80e606358c108c890c5367436a12..5c04c841812bdb200cc3c73169b1542aef6c2fc3:/btime.pas?ds=inline

diff --git a/btime.pas b/btime.pas
index de279df..ea199c6 100644
--- a/btime.pas
+++ b/btime.pas
@@ -543,7 +543,7 @@ begin
 
   if timezone >= 0 then timezonestr := '+' else timezonestr := '-';
   l := abs(timezone) div 60;
-  timezonestr := timezonestr + char(l div 600 mod 10+48)+char(l div 60 mod 10+48)+':'+char(l div 10 mod 6+48)+char(l mod 10+48);
+  timezonestr := timezonestr + ansichar(l div 600 mod 10+48)+ansichar(l div 60 mod 10+48)+':'+ansichar(l div 10 mod 6+48)+ansichar(l mod 10+48);
 end;
 
 function timestrshort(i:integer):ansistring;