--- a/DoWhatIMeanSupport.st	Sun Jan 08 12:02:55 2012 +0100
+++ b/DoWhatIMeanSupport.st	Fri Jan 13 12:26:05 2012 +0100
@@ -1229,9 +1229,12 @@
     ] ifFalse:[
         tree := RBParser
                 parseMethod:source
-                onError: [:str :err :nodesSoFar :parser|
+                onError: [:str :err :nodesSoFar :parserOrNil|
                         allowErrors ifTrue:[
-                            ^ parser currentMethodNode
+                            "/ parserOrNil isNil if raised by the scanner
+                            parserOrNil notNil ifTrue:[
+                                ^ parserOrNil currentMethodNode
+                            ]
                         ].
                         ^ nil
                     ]
@@ -1245,7 +1248,7 @@
     ].
     ^ tree
 
-    "Modified: / 27-04-2010 / 17:57:37 / cg"
+    "Modified: / 13-01-2012 / 11:54:30 / cg"
 ! !
 
 !DoWhatIMeanSupport class methodsFor:'input completion support'!
@@ -2240,5 +2243,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.90 2011-12-21 14:43:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.91 2012-01-13 11:26:05 cg Exp $'
 ! !