--- a/Parser.st	Tue Mar 02 00:07:27 2004 +0100
+++ b/Parser.st	Tue Mar 02 00:31:23 2004 +0100
@@ -4203,7 +4203,7 @@
         and:[prevExpr isMessage
         and:[thisStatement isReturnNode not]]) ifTrue:[
             (#(#'=' #'==') includes:prevExpr selector) ifTrue:[
-                self warning:'useless computation - mistyped assignment ?'
+                self warning:'useless computation - mistyped assignment (i.e. did you mean '':='') ?' position:prevExpr selectorPosition
             ].
         ].
 
@@ -7418,7 +7418,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.413 2004-02-12 18:39:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.414 2004-03-01 23:31:23 cg Exp $'
 ! !
 
 Parser initialize!