#PATCHOPTIONS: -p0
--- examples/ds/display_source.adb.dist	Wed Sep  1 17:16:01 1999
+++ examples/ds/display_source.adb	Fri May 26 19:02:05 2000
@@ -311,7 +311,7 @@
    Asis.Ada_Environments.Dissociate ( The_DS_Context );
    Asis.Implementation.Finalize ("");
 
-   -- let's delete the *.at? and *.ali files
+   -- let's delete the *.adt and *.ali files
    declare
       To_Erase : String := Ada.Command_Line.Argument (Command_File) ;
       File : File_Type ;
@@ -320,12 +320,12 @@
          To_Erase (To_Erase'Last - 3 .. To_Erase'Last - 1 ) = ".AD"
       then
          --  tree file
-         To_Erase ( To_Erase'Last - 1 ) := 't' ;
+         To_Erase ( To_Erase'Last ) := 't' ;
          Open ( File , Out_File , To_Erase ) ;
          Delete ( File ) ;
 
          --  ali file
-         To_Erase (To_Erase'Last -2 .. To_Erase'Last) := "ali";
+         To_Erase (To_Erase'Last - 2 .. To_Erase'Last) := "ali";
          Open ( File , Out_File , To_Erase ) ;
          Delete ( File ) ;