diff --git a/lcl/translations.pas b/lcl/translations.pas
index a1413cd310..586e962866 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -35,12 +35,6 @@ unit Translations;
 
 {$mode objfpc}{$H+}{$INLINE ON}
 
-{$IF defined(VER2_0_2) and defined(win32)}
-// FPC <= 2.0.2 compatibility code
-// WINDOWS define was added after FPC 2.0.2
-  {$define WINDOWS}
-{$endif}
-
 interface
 
 uses
@@ -203,6 +197,7 @@ begin
     on e: Exception do begin
       DebugLn('Exception while translating ', ResUnitName);
       DebugLn(e.Message);
+      DumpExceptionBackTrace;
     end;
   end;
 end;