--- a/Parser.st	Fri Aug 06 15:22:22 2010 +0200
+++ b/Parser.st	Mon Aug 09 01:00:20 2010 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.1.1 on 02-08-2010 at 14:08:48'                     !
-
 "{ Package: 'stx:libcomp' }"
 
 Scanner subclass:#Parser
@@ -5439,7 +5437,7 @@
         ((tokenType == #Identifier) and:[token isUppercaseFirst]) ifTrue:[
             token = 'Bool' ifTrue:[
                 self nextToken.
-                domain := BooleanDomain new.
+                domain := BooleanDomain singleton.
             ].
             token = 'Nat' ifTrue:[
                 self nextToken.
@@ -5470,6 +5468,8 @@
         ^ #Error
     ].    
     self nextToken.
+
+    "Modified: / 09-08-2010 / 00:27:16 / cg"
 !
 
 warnAboutEmptyStatement
@@ -9852,11 +9852,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.650 2010-08-06 13:22:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.651 2010-08-08 23:00:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.650 2010-08-06 13:22:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.651 2010-08-08 23:00:20 cg Exp $'
 ! !
 
 Parser initialize!