Ao invés de somar 1 hora, estava tirando 1 hora.
Este é o primeiro horário de verão desde que a rotina foi criada.
FUNCTION DateTimeXml( dDate, cTime, cUF, lUTC )
...
DO CASE
CASE ! lUTC ; cText += "" // no UTC
CASE cUF $ "AC" ; cText += "-05:00"
CASE cUF $ "MT,MS" .AND. lHorarioVerao ; cText += "-03:00"
CASE cUF $ "DF,ES,GO,MG,PR,RJ,RS,SC,SP" .AND. lHorarioVerao ; cText += "-02:00"
CASE cUF $ "AM,MT,MS,RO,RR" ; cText += "-04:00"
OTHERWISE ; cText += "-03:00" // demais casos
ENDCASE
RETURN cText