diff --git a/Station.pas b/Station.pas
index 2feaf8b..d5c6697 100644
--- a/Station.pas
+++ b/Station.pas
@@ -365,8 +365,8 @@ function TStation.NrAsText: string;
     (MyCall <> Ini.Call) then
     begin
     if Random < 0.4 then begin
-      Result := StringReplace(Result, '0', 'O', [rfReplaceAll]);
       Result := StringReplace(Result, '00', 'TT', [rfReplaceAll]);
+      Result := StringReplace(Result, '0', 'O', [rfReplaceAll]);
     end
     else if Random < 0.8
       then Result := StringReplace(Result, '0', 'T', [rfReplaceAll]);