--- a/Parser.st	Fri Mar 16 18:59:17 2012 +0100
+++ b/Parser.st	Tue Mar 20 13:20:57 2012 +0100
@@ -5664,7 +5664,7 @@
 
         prevStatement := thisStatement.
         prevStatement isReturnNode ifTrue:[
-            self warning:'statements after return' position:tokenPosition
+            self warning:'Statements after return.\\Some other Smalltalk systems will not allow this (Squeak, for example)' withCRs position:tokenPosition
         ].
 
         thisStatement := self statement.
@@ -5673,7 +5673,7 @@
     ].
     ^ self statementListRewriteHookFor:firstStatement
 
-    "Modified: / 20-11-2006 / 14:05:52 / cg"
+    "Modified: / 20-03-2012 / 12:44:12 / cg"
 !
 
 variableTypeDeclarationFor:aVariable
@@ -10706,11 +10706,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.710 2012-03-16 17:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.711 2012-03-20 12:20:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.710 2012-03-16 17:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.711 2012-03-20 12:20:57 cg Exp $'
 !
 
 version_SVN