--- a/RegressionTests__DictionaryTest.st	Thu Nov 24 16:36:27 2016 +0100
+++ b/RegressionTests__DictionaryTest.st	Mon Dec 05 15:39:39 2016 +0100
@@ -28,25 +28,25 @@
 
 testAssociationsSelect
 
-	"(self selector: #testAssociationsSelect) run"
+        "(self selector: #testAssociationsSelect) run"
 
-	| answer d|
+        | answer d|
 
-	d _ Dictionary new.
-	d at: (Array with: #hello with: #world) put: #fooBar.
-	d at: Smalltalk put: #'Smalltalk is the key'.
-	d at: #Smalltalk put: Smalltalk.
+        d := Dictionary new.
+        d at: (Array with: #hello with: #world) put: #fooBar.
+        d at: Smalltalk put: #'Smalltalk is the key'.
+        d at: #Smalltalk put: Smalltalk.
 
-	answer _ d associationsSelect:
-		[:assoc | (assoc key == #Smalltalk) and: [assoc value == Smalltalk]].
-	self should: [answer isKindOf: Dictionary].
-	self should: [answer size == 1].
-	self should: [(answer at: #Smalltalk) == Smalltalk].
+        answer := d associationsSelect:
+                [:assoc | (assoc key == #Smalltalk) and: [assoc value == Smalltalk]].
+        self should: [answer isKindOf: Dictionary].
+        self should: [answer size == 1].
+        self should: [(answer at: #Smalltalk) == Smalltalk].
 
-	answer _ d associationsSelect:
-		[:assoc | (assoc key == #NoSuchKey) and: [assoc value == #NoSuchValue]].
-	self should: [answer isKindOf: Dictionary].
-	self should: [answer size == 0]
+        answer := d associationsSelect:
+                [:assoc | (assoc key == #NoSuchKey) and: [assoc value == #NoSuchValue]].
+        self should: [answer isKindOf: Dictionary].
+        self should: [answer size == 0]
 !
 
 testComma