--- a/Parser.st	Wed Aug 18 17:54:16 1999 +0200
+++ b/Parser.st	Wed Aug 18 17:54:54 1999 +0200
@@ -2504,6 +2504,14 @@
                                         ok := true
                                     ]
                                 ].
+                                sCls := classToCompileFor class.
+                                [sCls notNil and:[sCls ~~ Object]] whileTrue:[
+                                    "if it implements #doesNotUnderstand somewhere, assume its ok"
+                                    (sCls implements:#doesNotUnderstand:) ifTrue:[
+                                        ^ aSelectorString
+                                    ].
+                                    sCls := sCls superclass
+                                ].
                                 err := ' is currently not implemented in the class'.
                             ]
                         ]
@@ -5179,6 +5187,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.223 1999-08-09 14:42:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.224 1999-08-18 15:54:54 cg Exp $'
 ! !
 Parser initialize!