diff --git a/sys/md/md_exception.pas b/sys/md/md_exception.pas
index e555b0ba..7686c047 100644
--- a/sys/md/md_exception.pas
+++ b/sys/md/md_exception.pas
@@ -263,6 +263,8 @@ begin
  Result:=EXCEPTION_CONTINUE_SEARCH;
  if (curkthread=nil) then Exit;
 
+ Writeln('ProcessException:0x',HexStr(get_exception(p),8));
+
  case get_exception(p) of
   FPC_EXCEPTION_CODE       :Exit;
   FPC_SET_EH_HANDLER       :Exit(EXCEPTION_CONTINUE_EXECUTION);
@@ -341,6 +343,8 @@ var
 begin
  Result:=EXCEPTION_CONTINUE_SEARCH;
 
+ Writeln('UnhandledException:0x',HexStr(get_exception(p),8));
+
  case get_exception(p) of
   FPC_EXCEPTION_CODE       :Exit;
   FPC_SET_EH_HANDLER       :Exit(EXCEPTION_CONTINUE_EXECUTION);