--- ai05s/ai05-0019-1.txt 2008/11/26 23:58:33 1.10 +++ ai05s/ai05-0019-1.txt 2008/12/22 07:39:47 1.11 @@ -144,8 +144,8 @@ type My_Int is range 0 .. 100; procedure Bad_Output - (Stream : not null access Ada.Streams.Root_Stream_Type'Class; - A : in My_Int'Base); + (Stream : not null access Ada.Streams.Root_Stream_Type'Class; + A : in My_Int'Base); for My_Int'Output use Bad_Output;