--- a/ParserFlags.st	Fri Nov 04 16:25:39 2016 +0100
+++ b/ParserFlags.st	Sat Nov 05 19:11:29 2016 +0100
@@ -2279,10 +2279,14 @@
 !
 
 allowOldStyleAssignment
+    "return true, if underscore-assignment (pre ST-80v4 syntax) are to be allowed"
+
     ^ allowOldStyleAssignment
 !
 
 allowOldStyleAssignment:aBoolean
+    "return true, if underscore-assignment (pre ST-80v4 syntax) are to be allowed"
+    
     allowOldStyleAssignment := aBoolean
 !