1 files changed, 6 insertions, 0 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb
index 145a4c5e9..f5c76cca5 100644
--- a/src/ortho/debug/ortho_debug-disp.adb
+++ b/src/ortho/debug/ortho_debug-disp.adb
@@ -480,6 +480,12 @@ package body Ortho_Debug.Disp is
             Put ("'[");
             Put_Keyword ("null");
             Put (']');
+         when OC_Default_Lit =>
+            --  Always disp the type of default literals.
+            Disp_Tnode_Name (C.Ctype);
+            Put ("'[");
+            Put_Keyword ("default");
+            Put (']');
          when OC_Enum_Lit =>
             --  Always disp the type of enum literals.
             Disp_Lit (C.Ctype, False, Get_String (C.E_Name));