--- a/DoWhatIMeanSupport.st	Wed Jul 24 12:29:08 2013 +0200
+++ b/DoWhatIMeanSupport.st	Wed Jul 24 12:41:24 2013 +0200
@@ -1295,7 +1295,7 @@
 codeCompletionForLiteralSymbol:node into:actionBlock
     |sym possibleCompletions best start stop oldLen newLen oldVar|
 
-Transcript show:'lit in '; show:methodOrNil; show:' / '; showCR:classOrNil.
+    "/ Transcript show:'lit in '; show:methodOrNil; show:' / '; showCR:classOrNil.
 
     sym := node value.
     possibleCompletions := OrderedCollection new.
@@ -1353,7 +1353,7 @@
      findBest parentNode selectorInBest selector2InBest2
      parser selectorsSentInCode split editAction|
 
-Transcript show:'msg in '; show:methodOrNil; show:' / '; showCR:classOrNil.
+    "/ Transcript show:'msg in '; show:methodOrNil; show:' / '; showCR:classOrNil.
 
 "/    classOrNil notNil ifTrue:[
 "/        parser := Parser parseMethod:codeView contents string in:classOrNil ignoreErrors:true ignoreWarnings:true.
@@ -1795,7 +1795,7 @@
      selectors distances best rest 
      allExistingMethods nameBag namesByCount selectors1 selectors2|  
 
-Transcript showCR:'m'.
+    "/ Transcript showCR:'m'.
     crsrPos := codeView characterPositionOfCursor - 1.
 
     selectorSoFar := ''.
@@ -1914,7 +1914,7 @@
      selectors distances best rest 
      allExistingMethods nameBag namesByCount selectors1 selectors2|  
 
-Transcript showCR:'m'.
+    "/ Transcript showCR:'m'.
     crsrPos := codeView characterPositionOfCursor - 1.
 
     selectorSoFar := ''.
@@ -2133,7 +2133,7 @@
      globalFactor localFactor selectorOfMessageToNode tree implementors argIdx namesUsed kwPart
      editAction suggestions nameIsOK|
 
-Transcript show:'var in '; show:methodOrNil; show:' / '; showCR:classOrNil.
+    "/ Transcript show:'var in '; show:methodOrNil; show:' / '; showCR:classOrNil.
     classOrNil notNil ifTrue:[
         nonMetaClass := classOrNil theNonMetaclass.
     ].
@@ -2893,7 +2893,7 @@
                     ] ifFalse:[
                         rbType := Class commonSuperclassOf:rbTypes
                     ].
-                    (rbType notNil and:[rbType ~= Object]) ifTrue:[
+                    (rbType notNil "and:[rbType ~= Object]") ifTrue:[
                         bestSelectorsFromRB := Parser findBest:30 selectorsFor:node selector in:rbType forCompletion:true.
                     ].
                 ]
@@ -3489,10 +3489,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.108 2013-07-24 10:29:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.109 2013-07-24 10:41:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.108 2013-07-24 10:29:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.109 2013-07-24 10:41:24 cg Exp $'
 ! !