--- a/DoWhatIMeanSupport.st	Mon Jun 12 12:38:58 2017 +0200
+++ b/DoWhatIMeanSupport.st	Thu Jun 22 07:00:02 2017 +0200
@@ -941,7 +941,7 @@
     ].
     (lastOldName asLowercase = lastNewName asLowercase) ifTrue:[
         (lastOldName first ~= lastNewName first) ifTrue:[
-            (lastOldName first isLowercase = oldName first isLowercase) ifTrue:[
+            (lastOldName isLowercaseFirst = oldName isLowercaseFirst) ifTrue:[
                 "last rename was
                     'xfoo' -> 'Xfoo'
                  then, a good default for
@@ -1083,7 +1083,7 @@
                        lastNew:'Key_odt2_level1HeadlineMatchPattern'
     "
 
-    "Modified: / 24-07-2011 / 11:06:03 / cg"
+    "Modified: / 22-06-2017 / 06:56:55 / cg"
 !
 
 goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
@@ -1671,7 +1671,7 @@
         "/ this cares for doIt expressions in the last cursor line;
         "/ however, we skip this, if the source starts with a lowercase letter
         "/ (then it is likely, that the user wants to define a new method)
-        (partialSource first isLowercase) ifFalse:[
+        (partialSource isLowercaseFirst) ifFalse:[
 
             "/ first try parsing the current cursor line.
             "/ this helps doIts in a workspace, where additional garbage is often before the actual expression to be evaluated
@@ -1717,7 +1717,7 @@
     actionBlock value:suggestions value:actions value:title.
 
     "Created: / 18-09-2013 / 15:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-04-2017 / 16:31:11 / cg"
+    "Modified: / 22-06-2017 / 06:56:30 / cg"
 ! !
 
 !DoWhatIMeanSupport methodsFor:'code completion - obsolete'!
@@ -3439,7 +3439,7 @@
                 |name|
 
                 name := var name.
-                (name first isLowercase or:[isLeftSideOfAssignment not]) ifTrue:[
+                (name isLowercaseFirst or:[isLeftSideOfAssignment not]) ifTrue:[
                     (setOfNames includes:name) ifFalse:[
                         names add:name.
                         setOfNames add:name
@@ -3598,7 +3598,7 @@
 
                 "/ only consider all globals, if the first char of the completed name is uppercase;
                 "/ otherwise, only consider names with a caseInsensitve prefix match
-                nm first isUppercase ifFalse:[
+                nm isUppercaseFirst ifFalse:[
                     names := names select:[:globalName | globalName asLowercase startsWith: nm].
                 ].
                 addWithFactorBlock value:names value:(1.5 * globalFactor).
@@ -3748,8 +3748,8 @@
 
     "Created: / 10-11-2006 / 13:16:33 / cg"
     "Modified: / 16-02-2010 / 10:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-05-2017 / 17:20:35 / cg"
     "Modified (comment): / 12-06-2017 / 12:34:46 / mawalch"
+    "Modified: / 22-06-2017 / 06:56:42 / cg"
 !
 
 editActionToInsert:aString