--- a/DoWhatIMeanSupport.st	Tue May 03 15:10:23 2016 +0200
+++ b/DoWhatIMeanSupport.st	Tue May 03 15:50:05 2016 +0200
@@ -1622,7 +1622,7 @@
 addClassesOfExpression:expr inClass:aClass to:setOfTypes
     |cls exprSelector val|
     
-    expr isConstant ifTrue:[
+    expr isLiteral ifTrue:[
         val := expr evaluate.
         cls := val class.         
         (val isArray or:[ val isByteArray or:[ val isString ]]) ifTrue:[
@@ -1813,7 +1813,7 @@
                             node variable name = varName ifTrue:[
                                 expr := node expression.
                                 "/ only look for wellknown types on the right side.
-                                expr isConstant ifTrue:[
+                                expr isLiteral ifTrue:[
                                     val := expr evaluate.
                                     val isArray ifTrue:[
                                         setOfTypes add:Array