diff --git a/uutlLogger.pas b/uutlLogger.pas
index 8ae9b3c..b80cd4d 100644
--- a/uutlLogger.pas
+++ b/uutlLogger.pas
@@ -151,6 +151,7 @@ begin
     result := result + sLineBreak +
     '  Exception: ' + aException.ClassName + sLineBreak +
     '  Message:   ' + aException.Message + sLineBreak +
+    '  Thread:    ' + IntToStr(GetCurrentThreadId) + sLineBreak +
     '  StackTrace:' + sLineBreak +
     '    ' + BackTraceStrFunc(ExceptAddr)
   else