--- a/Behavior.st	Wed Nov 16 18:15:53 2016 +0100
+++ b/Behavior.st	Wed Nov 16 20:17:27 2016 +0100
@@ -1424,6 +1424,7 @@
     ^ self nameWithoutPrefix
 ! !
 
+
 !Behavior methodsFor:'RefactoringBrowser'!
 
 realClass
@@ -5157,15 +5158,17 @@
 !
 
 whichSelectorsAssign: instVarName
-	"Answer a set of selectors whose methods write the argument, instVarName,
-	as a named instance variable."
-
-	^ self whichSelectorsWrite: instVarName
+    "Answer a set of selectors whose methods write the argument, instVarName,
+    as a named instance variable."
+
+    ^ self whichSelectorsWrite: instVarName
+
+    "Modified (comment): / 16-11-2016 / 20:16:53 / cg"
 !
 
 whichSelectorsRead: instVarName
-	"Answer a set of selectors whose methods read the argument, instVarName,
-	as a named instance variable."
+    "Answer a set of selectors whose methods read the argument, instVarName,
+    as a named instance variable."
 
 "/        | instVarIndex methodDict|
 "/        instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
@@ -5173,12 +5176,13 @@
 "/        ^methodDict keys select: [:sel | (methodDict at: sel)
 "/                        readsField: instVarIndex]
 
-	| methodDict |
-	methodDict := self methodDictionary.
-	^ methodDict keys
-	    select: [:sel | (methodDict at: sel) readsInstVar: instVarName]
+    | methodDict |
+
+    methodDict := self methodDictionary.
+    ^ methodDict keys select: [:sel | (methodDict at: sel) readsInstVar: instVarName]
 
     "Modified: / 23-07-2012 / 11:22:04 / cg"
+    "Modified (comment): / 16-11-2016 / 20:16:45 / cg"
 !
 
 whichSelectorsReferTo:someLiteralConstant
@@ -5235,20 +5239,21 @@
 !
 
 whichSelectorsWrite: instVarName
-	"Answer a set of selectors whose methods write the argument, instVarName,
-	as a named instance variable."
+    "Answer a set of selectors whose methods write the argument, instVarName,
+    as a named instance variable."
 
 "/        | instVarIndex methodDict |
 "/        instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
 "/        methodDict := self methodDictionary.
 "/        ^methodDict keys select: [:sel | (methodDict at: sel)
 "/                        writesField: instVarIndex]
-	| methodDict |
-	methodDict := self methodDictionary.
-	^ methodDict keys
-	    select: [:sel | (methodDict at: sel) writesInstVar: instVarName]
+    | methodDict |
+
+    methodDict := self methodDictionary.
+    ^ methodDict keys select: [:sel | (methodDict at: sel) writesInstVar: instVarName]
 
     "Modified: / 23-07-2012 / 11:21:17 / cg"
+    "Modified (format): / 16-11-2016 / 20:17:17 / cg"
 ! !
 
 !Behavior methodsFor:'snapshots'!