--- a/DoWhatIMeanSupport.st	Mon Feb 04 13:20:30 2008 +0100
+++ b/DoWhatIMeanSupport.st	Mon Feb 04 13:21:52 2008 +0100
@@ -513,7 +513,9 @@
         tree := self treeForCode:(codeView contentsAsString string) allowErrors:true.
         "/ better if we already have a body (include locals then)
         "/ otherwise, only the arguments are considered
-        names := (tree body ? tree) allVariablesOnScope.
+        tree notNil ifTrue:[
+            names := (tree body ? tree) allVariablesOnScope.
+        ]
     ].
 
     addWithFactorBlock value:names value:(4 * localFactor).
@@ -1542,5 +1544,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.28 2008-01-17 09:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.29 2008-02-04 12:21:52 cg Exp $'
 ! !