--- a/ParserFlags.st	Thu Sep 08 05:23:04 2011 +0200
+++ b/ParserFlags.st	Thu Sep 08 14:51:42 2011 +0200
@@ -48,7 +48,8 @@
 		linkArgs linkSharedArgs linkCommand libPath searchedLibraries
 		warnAboutPeriodInSymbol allowPeriodInSymbol allowCaretAsBinop
 		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
-		allowStringEscapes'
+		allowStringEscapes allowAssignmentToBlockArgument
+		allowAssignmentToMethodArgument allowAssignmentToPoolVariable'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -82,7 +83,9 @@
 		CCCompilationOptions CCPath LinkArgs LinkSharedArgs LinkCommand
 		LibPath SearchedLibraries MakeCommand AllowCaretAsBinop
 		AllowUnicodeStrings AllowUnicodeCharacters AllowCharacterEscapes
-		AllowStringEscapes LibDirectory VCTop SDKTop BCCTop'
+		AllowStringEscapes AllowAssignmentToBlockArgument
+		AllowAssignmentToMethodArgument AllowAssignmentToPoolVariable
+		LibDirectory VCTop SDKTop BCCTop'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -465,6 +468,42 @@
     "
 !
 
+allowAssignmentToBlockArgument
+    ^ AllowAssignmentToBlockArgument
+
+    "Created: / 08-09-2011 / 14:49:46 / cg"
+!
+
+allowAssignmentToBlockArgument:aBoolean
+    AllowAssignmentToBlockArgument := aBoolean
+
+    "Created: / 08-09-2011 / 14:50:23 / cg"
+!
+
+allowAssignmentToMethodArgument
+    ^ AllowAssignmentToMethodArgument
+
+    "Created: / 08-09-2011 / 14:49:57 / cg"
+!
+
+allowAssignmentToMethodArgument:aBoolean
+    AllowAssignmentToMethodArgument := aBoolean
+
+    "Created: / 08-09-2011 / 14:50:34 / cg"
+!
+
+allowAssignmentToPoolVariable
+    ^ AllowAssignmentToPoolVariable
+
+    "Created: / 08-09-2011 / 14:50:06 / cg"
+!
+
+allowAssignmentToPoolVariable:aBoolean
+    AllowAssignmentToPoolVariable := aBoolean
+
+    "Created: / 08-09-2011 / 14:50:48 / cg"
+!
+
 allowDollarInIdentifier
     "return true, if $-characters are allowed in identifiers.
      Notice, that dollars are NEVER allowed as the first character in an identifier."
@@ -1238,6 +1277,9 @@
     AllowUnicodeCharacters := false.
     AllowCharacterEscapes := false.
     AllowStringEscapes := false.
+    AllowAssignmentToBlockArgument := false.
+    AllowAssignmentToMethodArgument := false.
+    AllowAssignmentToPoolVariable := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -1261,7 +1303,7 @@
     "
 
     "Modified: / 09-08-2006 / 18:47:18 / fm"
-    "Modified: / 10-08-2011 / 20:03:26 / cg"
+    "Modified: / 08-09-2011 / 14:51:19 / cg"
 !
 
 initializeSTCFlagsForTopDirectory:topDirArg
@@ -1379,6 +1421,32 @@
     "Created: / 06-08-2011 / 19:47:47 / cg"
 ! !
 
+!ParserFlags methodsFor:'accessing'!
+
+allowAssignmentToBlockArgument
+    ^ allowAssignmentToBlockArgument
+!
+
+allowAssignmentToBlockArgument:something
+    allowAssignmentToBlockArgument := something.
+!
+
+allowAssignmentToMethodArgument
+    ^ allowAssignmentToMethodArgument
+!
+
+allowAssignmentToMethodArgument:something
+    allowAssignmentToMethodArgument := something.
+!
+
+allowAssignmentToPoolVariable
+    ^ allowAssignmentToPoolVariable
+!
+
+allowAssignmentToPoolVariable:something
+    allowAssignmentToPoolVariable := something.
+! !
+
 !ParserFlags methodsFor:'accessing-compilation control'!
 
 allowExtensionsToPrivateClasses
@@ -2136,6 +2204,9 @@
     allowUnicodeCharacters := AllowUnicodeCharacters.
     allowCharacterEscapes := AllowCharacterEscapes.
     allowStringEscapes := AllowStringEscapes.
+    allowAssignmentToBlockArgument := AllowAssignmentToBlockArgument.
+    allowAssignmentToMethodArgument := AllowAssignmentToMethodArgument.
+    allowAssignmentToPoolVariable := AllowAssignmentToPoolVariable.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -2162,17 +2233,17 @@
      self new inspect.
     "
 
-    "Modified: / 17-07-2010 / 14:44:56 / cg"
+    "Modified: / 08-09-2011 / 14:49:08 / cg"
 ! !
 
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.71 2011-08-19 13:35:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.72 2011-09-08 12:51:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.71 2011-08-19 13:35:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.72 2011-09-08 12:51:42 cg Exp $'
 ! !
 
 ParserFlags initialize!