diff options
| -rw-r--r-- | src/grt/grt-vpi.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index adabc6a87..5cb72f768 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -1186,9 +1186,9 @@ package body Grt.Vpi is begin if Flag_Trace then Trace_Start ("vpi call callback "); - Trace_Cb_Reason (Hand.Cb.Reason); - Trace (" "); Trace (Hand); + Trace (" "); + Trace_Cb_Reason (Hand.Cb.Reason); Trace_Newline; Trace_Indent := Trace_Indent + 1; end if; |