--- a/Parser.st	Wed Jul 06 09:45:09 2011 +0200
+++ b/Parser.st	Wed Jul 06 12:19:28 2011 +0200
@@ -4563,7 +4563,7 @@
                         value := method 
                                     valueWithReceiver:anObject 
                                     arguments:nil  "/ (Array with:m) 
-                                    selector:(requestor isNil ifTrue:#'doItX' ifFalse:#'doIt') "/ #doIt: 
+                                    selector:(requestor isNil ifTrue:[#'doItX'] ifFalse:[#'doIt']) "/ #doIt: 
                                     search:nil
                                     sender:nil.
                     ] ifFalse:[
@@ -4578,9 +4578,9 @@
     self release.
     ^ value
 
-    "Created: / 8.2.1997 / 19:34:44 / cg"
-    "Modified: / 18.3.1999 / 18:25:40 / stefan"
-    "Modified: / 6.2.2000 / 15:01:57 / cg"
+    "Created: / 08-02-1997 / 19:34:44 / cg"
+    "Modified: / 18-03-1999 / 18:25:40 / stefan"
+    "Modified: / 06-07-2011 / 11:46:24 / cg"
 !
 
 evaluate:aStringOrStream logged:logged
@@ -10367,7 +10367,7 @@
 !Parser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.672 2011-07-05 21:25:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.673 2011-07-06 10:19:28 cg Exp $'
 !
 
 version_SVN