1 files changed, 9 insertions, 5 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb
index 684a4548c..265ca7b2c 100644
--- a/src/grt/grt-disp_signals.adb
+++ b/src/grt/grt-disp_signals.adb
@@ -200,11 +200,15 @@ package body Grt.Disp_Signals is
          Put_Time (stdout, Sig.Last_Active);
       end if;
       Put (" val=");
-      if Sig_Type /= null then
-         Disp_Value (stdout, Sig.Value, Sig_Type);
-      else
-         Disp_Value (Sig.Value, Sig.Mode);
-      end if;
+      declare
+         Val : constant Value_Union := Read_Value (Sig.Value_Ptr, Sig.Mode);
+      begin
+         if Sig_Type /= null then
+            Disp_Value (stdout, Val, Sig_Type);
+         else
+            Disp_Value (Val, Sig.Mode);
+         end if;
+      end;
       Put ("; drv=");
       if Sig_Type /= null then
          Disp_Value (stdout, Sig.Driving_Value, Sig_Type);