--- a/Parser.st	Fri Nov 24 23:36:49 1995 +0100
+++ b/Parser.st	Sat Nov 25 18:18:45 1995 +0100
@@ -151,7 +151,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.59 1995-11-24 22:36:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.60 1995-11-25 17:18:45 cg Exp $'
 ! !
 
 !Parser class methodsFor:'instance creation'!
@@ -1425,13 +1425,14 @@
 	     to this selector
 	    "
 	    receiver isConstant ifTrue:[
-		ok := receiver evaluate respondsTo:sym.
-		err := ' will not be understood here'.
+		rec := receiver evaluate.
+		ok := rec respondsTo:sym.
+		err := ' will not be understood here (message to ' , rec classNameWithArticle , ')'.
 	    ] ifFalse:[
 		receiver isBlock ifTrue:[
 		    "/ this should help with typos, sending #ifTrue to blocks ...
 		    ok := [] respondsTo:sym.
-		    err := ' will not be understood here'.
+		    err := ' will not be understood here (message to a Block)'.
 		] ifFalse:[
 		    "
 		     if the receiver is a global, we check it too ...
@@ -1446,7 +1447,7 @@
 			 and:[rec isLoaded not]]) ifTrue:[^ aSelectorString].
 
 			ok := rec respondsTo:sym.
-			err := ' may not be understood here'.
+			err := ' may not be understood here (is currently ' , rec classNameWithArticle , ')'.
 		    ] ifFalse:[
 			"if its a super send, we can do more checking"
 			receiver isSuper ifTrue:[