--- a/ParserFlags.st	Fri Nov 18 21:20:51 2016 +0000
+++ b/ParserFlags.st	Fri Nov 18 21:21:39 2016 +0000
@@ -2158,10 +2158,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
 !