--- a/Class.st	Mon Feb 13 20:07:00 2017 +0100
+++ b/Class.st	Mon Feb 13 20:07:11 2017 +0100
@@ -1986,6 +1986,7 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
+
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -4453,7 +4454,7 @@
 
 binaryRevision
     "return the revision-ID from which the class was stc-compiled;
-     nil if its an autoloaded or filedIn class.
+     nil if it's an autoloaded or filedIn class.
      If a classes binary is up-to-date w.r.t. the source repository,
      the returned string is the same as the one returned by #revision."
 
@@ -4497,11 +4498,12 @@
     "Modified: / 01-04-1997 / 23:33:01 / stefan"
     "Modified: / 22-10-2008 / 20:37:05 / cg"
     "Modified: / 23-01-2012 / 19:38:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 13-02-2017 / 19:57:40 / cg"
 !
 
 binaryRevisionString
     "return the revision-ID from which the class was stc-compiled;
-     nil if its an autoloaded or filedIn class.
+     nil if it's an autoloaded or filedIn class.
      If a classes binary is up-to-date w.r.t. the source repository,
      the returned string is the same as the one returned by #revision."
 
@@ -4518,13 +4520,14 @@
      |classes|
 
      classes := Smalltalk allClasses
-		    select:[:cls | cls binaryRevision notNil and:[cls binaryRevision ~= cls revision]].
+                    select:[:cls | cls binaryRevision notNil and:[cls binaryRevision ~= cls revision]].
      SystemBrowser browseClasses:classes title:'classes which are not up-to-date'
     "
 
     "Modified: / 01-04-1997 / 23:33:01 / stefan"
     "Modified: / 22-10-2008 / 20:37:05 / cg"
     "Created: / 01-07-2011 / 10:55:03 / cg"
+    "Modified (comment): / 13-02-2017 / 19:57:44 / cg"
 !
 
 currentSourceStream
@@ -5260,16 +5263,18 @@
     (owner := self owningClass) notNil ifTrue:[^ owner sourceStream].
 
     classFilename notNil ifTrue:[
-	source := classFilename
+        source := classFilename
     ] ifFalse:[
-	source := (Smalltalk fileNameForClass:self) , '.st'
+        source := (Smalltalk fileNameForClass:self) , '.st'
     ].
     stream := self sourceStreamFor:source.
     stream notNil ifTrue:[
-	"/ see if its utf8 encoded...
-	stream := EncodedStream decodedStreamFor:stream.
+        "/ see if it's utf8 encoded...
+        stream := EncodedStream decodedStreamFor:stream.
     ].
     ^ stream.
+
+    "Modified (format): / 13-02-2017 / 19:57:50 / cg"
 !
 
 sourceStreamFor:source
@@ -5455,7 +5460,7 @@
         cannotCheckReason := 'no valid version method'.
     ] ifFalse:[
         "/
-        "/ if its a method returning the string,
+        "/ if it's a method returning the string,
         "/ that's the returned value
         "/
         versionFromCode := versionMethod valueWithReceiver:cls arguments:#().
@@ -5526,6 +5531,7 @@
     ^ false
 
     "Modified: / 29-09-2011 / 14:29:55 / cg"
+    "Modified (format): / 13-02-2017 / 19:57:54 / cg"
 !
 
 versionMethodTemplateForSourceCodeManager:aSourceCodeManager