--- a/AbstractSettingsApplication.st	Wed Jan 27 17:02:23 2016 +0100
+++ b/AbstractSettingsApplication.st	Wed Jan 27 19:55:30 2016 +0100
@@ -16220,31 +16220,31 @@
 
     someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
     someRsrcFile isNil ifTrue:[
-	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
-	someRsrcFile isNil ifTrue:[
-	    someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
-	].
+        someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
+        someRsrcFile isNil ifTrue:[
+            someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
+        ].
     ].
     someRsrcFile notNil ifTrue:[
-	resourceDir := someRsrcFile asFilename directoryName
+        resourceDir := someRsrcFile asFilename directoryName
     ] ifFalse:[
-	resourceDir := Smalltalk getSystemFileName:'resources'.
-	resourceDir isNil ifTrue:[
-	    self warn:'no styles found (missing ''resources'' directory)'.
-	    ^ self
-	].
+        resourceDir := Smalltalk getSystemFileName:'resources'.
+        resourceDir isNil ifTrue:[
+            self warn:'no styles found (missing ''resources'' directory)'.
+            ^ self
+        ].
     ].
 
     [
-	styleDirectoryContents := resourceDir asFilename directoryContents.
+        styleDirectoryContents := resourceDir asFilename directoryContents.
     ] on:FileStream openErrorSignal do:[:ex|
-	self warn:'no styles found (unaccessable ''resources'' directory)'.
-	^ self
+        self warn:'no styles found (unaccessible ''resources'' directory)'.
+        ^ self
     ].
 
     self updateList.
     (self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
-	self showStandardStylesOnly value:false
+        self showStandardStylesOnly value:false
     ].
     self selectedStyle value:(View defaultStyle).
     self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.