--- a/AbstractSettingsApplication.st	Mon Sep 12 16:16:32 2011 +0200
+++ b/AbstractSettingsApplication.st	Mon Sep 12 17:27:42 2011 +0200
@@ -41,7 +41,8 @@
 		allowEmptyStatements warnAboutPossibleSTCCompilationProblems
 		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
 		warnAboutPossiblyUnimplementedSelectors
-		allowExtendedBinarySelectors warnAboutMissingMethodComment'
+		allowExtendedBinarySelectors warnAboutMissingMethodComment
+		allowAssignmentToPoolVariable'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -1123,6 +1124,13 @@
                                 translateLabel: true
                                 extent: (Point 313 22)
                               )
+                             (CheckBoxSpec
+                                label: 'Allow Assignment to Pool Variable'
+                                name: 'CheckBox6'
+                                model: allowAssignmentToPoolVariable
+                                translateLabel: true
+                                extent: (Point 313 22)
+                              )
                              )
                            
                           )
@@ -1179,7 +1187,7 @@
                        )
                      
                     )
-                    extent: (Point 665 137)
+                    extent: (Point 665 157)
                   )
                  (DividerSpec
                     name: 'Separator4'
@@ -1504,6 +1512,7 @@
                 allowExtendedBinarySelectors
 
                 arraysAreImmutable
+                allowAssignmentToPoolVariable
             )
 
     "Created: / 20-11-2006 / 22:37:17 / cg"
@@ -1516,6 +1525,17 @@
 
 !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
 
+allowAssignmentToPoolVariable
+
+    allowAssignmentToPoolVariable isNil ifTrue:[
+        allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
+        allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ allowAssignmentToPoolVariable.
+
+    "Created: / 12-09-2011 / 17:26:01 / cg"
+!
+
 allowDollarInIdentifier
 
     allowDollar isNil ifTrue:[
@@ -16241,9 +16261,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.401 2011-08-18 00:27:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.402 2011-09-12 15:27:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.401 2011-08-18 00:27:46 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.402 2011-09-12 15:27:42 cg Exp $'
+! !