--- a/DoWhatIMeanSupport.st	Tue Jul 16 19:31:57 2013 +0200
+++ b/DoWhatIMeanSupport.st	Fri Jul 19 20:47:50 2013 +0200
@@ -2860,19 +2860,25 @@
      parser selectorsSentInCode split 
      varName rbTypes|
 
-    "/ refactory package also provides a (very limited) typer
-    (node receiver isVariable) ifTrue:[
-        varName := node receiver name.
-        rbTypes := RefactoryTyper 
-                    classesFor: varName
-                    in: (RBParser parseMethod:codeView contents string
-                                  onError:[:aString :pos | nil])
-                    model: nil
-                    ignoredSelectors:(Array with:node selector).     
-
-        rbTypes size == 1 ifTrue:[
-            bestSelectorsFromRB := Parser findBest:30 selectorsFor:node selector in:(rbTypes first) forCompletion:true.
-        ]
+    RBParser notNil ifTrue:[
+        "/ refactory package also provides a (very limited) typer
+        (node receiver isVariable) ifTrue:[
+            varName := node receiver name.
+            tree := RBParser 
+                        parseMethod:codeView contents string
+                        onError:[:aString :pos | nil].
+            tree notNil ifTrue:[
+                rbTypes := RefactoryTyper 
+                            classesFor: varName
+                            in: tree
+                            model: nil
+                            ignoredSelectors:(Array with:node selector).     
+
+                rbTypes size == 1 ifTrue:[
+                    bestSelectorsFromRB := Parser findBest:30 selectorsFor:node selector in:(rbTypes first) forCompletion:true.
+                ]
+            ]
+        ].
     ].
 
     classOrNil notNil ifTrue:[
@@ -3434,6 +3440,6 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.103 2013-07-15 08:59:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.104 2013-07-19 18:47:50 cg Exp $'
 ! !