CVS difference for ai05s/ai05-0023-1.txt

--- ai05s/ai05-0023-1.txt	2008/03/07 06:15:18	1.6
+++ ai05s/ai05-0023-1.txt	2008/05/10 05:14:33	1.7
@@ -1,4 +1,4 @@
-!standard 13.13.2(9/2)                                   08-02-21    AI05-0023-1/05
+!standard 13.13.2(9/2)                                   08-04-09    AI05-0023-1/06
 !standard 13.13.2(27/2)
 !standard 13.13.2(56/2)
 !class binding interpretation 06-11-13
@@ -23,7 +23,7 @@
 Consider for example:
 
    type Customer_Description( Is_Company : Boolean := True ) is record
-      case Is_Company Is
+      case Is_Company is
          when  True   =>
             Foo                 : Integer := 0;       
             Bar                 : Integer := 0;