--- a/Class.st	Fri Nov 04 15:50:11 2016 +0100
+++ b/Class.st	Fri Nov 04 15:50:21 2016 +0100
@@ -3038,9 +3038,9 @@
     "append a binary representation of myself to aStream in
      a portable binary format.
      The argument controls how sources are to be saved:
-	#keep - include the source
-	#reference - include a reference to the sourceFile
-	#discard - dont save sources.
+        #keep - include the source
+        #reference - include a reference to the sourceFile
+        #discard - don't save sources.
 
      With #reference, the sourceFile needs to be present after reload
      in order to be browsable."
@@ -3057,9 +3057,9 @@
     "create a file 'class.cls' (in the current projects fileOut-directory),
      consisting of all methods in myself in a portable binary format.
      The argument controls how sources are to be saved:
-	#keep - include the source
-	#reference - include a reference to the sourceFile
-	#discard - dont save sources.
+        #keep - include the source
+        #reference - include a reference to the sourceFile
+        #discard - don't save sources.
 
      With #reference, the sourceFile needs to be present after reload
      in order to be browsable."
@@ -3069,9 +3069,9 @@
     fileName := (Smalltalk fileNameForClass:self name), '.cls'.
 
     Project notNil ifTrue:[
-	dirName := Project currentProjectDirectory
+        dirName := Project currentProjectDirectory
     ] ifFalse:[
-	dirName := '.'
+        dirName := '.'
     ].
     fileName := dirName asFilename construct:fileName.
     fileName makeLegalFilename.
@@ -3085,9 +3085,9 @@
     "create a file fileNameString,
      consisting of all methods in myself in a portable binary format.
      The argument controls how sources are to be saved:
-	#keep - include the source
-	#reference - include a reference to the sourceFile
-	#discard - dont save sources.
+        #keep - include the source
+        #reference - include a reference to the sourceFile
+        #discard - don't save sources.
 
      With #reference, the sourceFile needs to be present after reload
      in order to be browsable."
@@ -3098,11 +3098,11 @@
     fileName makeLegalFilename.
 
     [
-	aStream := fileName newReadWriteStream.
+        aStream := fileName newReadWriteStream.
     ] on:FileStream openErrorSignal do:[:ex|
-	^ FileOutErrorSignal
-		raiseRequestWith:fileName name
-		errorString:(' - cannot create file:', fileName name)
+        ^ FileOutErrorSignal
+                raiseRequestWith:fileName name
+                errorString:(' - cannot create file:', fileName name)
     ].
 
     aStream binary.
@@ -3887,7 +3887,7 @@
 
 canHaveExtensions
     "return true, if this class allows extensions from other packages.
-     Private classes, namespaces and projectDefinitions dont allow this"
+     Private classes, namespaces and projectDefinitions don't allow this"
 
     ^ self isPrivate not