diff --git a/src/polyorb_hi-thread_interrogators.adb b/src/polyorb_hi-thread_interrogators.adb
index 58bb305a625787abbd278f6659f40ca96ef54a5c..53e19462e106837660b449d3c8e50a13e195cd0c 100644
--- a/src/polyorb_hi-thread_interrogators.adb
+++ b/src/polyorb_hi-thread_interrogators.adb
@@ -766,7 +766,10 @@ package body PolyORB_HI.Thread_Interrogators is
          --  sending, not receiving.
 
          Most_Recent_Values (PT) := P;
-         Time_Stamps (PT) := T;
+         -- Time_Stamps (PT) := T;
+         -- Maxime workaround for backdoor accesses
+         Time_Stamps (PT) := Ada.Real_time.clock;
+
       end Store_Out;
 
       -----------