--- a/RegressionTests__ContextTest2.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__ContextTest2.st	Thu Jun 30 09:02:08 2016 +0100
@@ -65,8 +65,8 @@
 
 callRecursive: level withArg:argument thenDo:aBlock
     level == 0 ifTrue:[
-        aBlock value:thisContext.
-        ^ self.
+	aBlock value:thisContext.
+	^ self.
     ].
     self callRecursive:level-1 withArg:argument thenDo:aBlock
 
@@ -133,20 +133,20 @@
 
 raiseNotification
     NoHandlerError handle:[:ex |
-        ex return
+	ex return
     ] do:[
-        |t|
+	|t|
 
 %{
   extern void *__contextToDebug__;
   __contextToDebug__ = (void *)__thisContext;
 %}.
-        t := MyNotification raiseRequestFrom:self.
+	t := MyNotification raiseRequestFrom:self.
 %{
   extern void *__contextToDebug__;
   __contextToDebug__ = (void *)__thisContext;
 %}.
-        ^ t
+	^ t
     ].
     ^ nil.
 !
@@ -283,8 +283,8 @@
 
 testContextRef8
     100000 timesRepeat:[
-        self raiseNotification.
-        self assert:(ObjectMemory spaceOf:exceptionObject suspendedContext) < 4.
+	self raiseNotification.
+	self assert:(ObjectMemory spaceOf:exceptionObject suspendedContext) < 4.
     ].
 
     "
@@ -309,16 +309,16 @@
      is a Twobytestring"
 
     Transcript showCR:'1'.
-    self 
-        callRecursive:3
-        withArg:((Unicode16String new:2)
-                                at:1 put:(Character value:16r151);
-                                at:2 put:(Character value:16rFF00);
-                                yourself)
-        thenDo:[:context | 
-                    self assert:(context displayString bitsPerCharacter == 8).
-                    self assert:(context fullPrintString bitsPerCharacter == 8).
-               ].
+    self
+	callRecursive:3
+	withArg:((Unicode16String new:2)
+				at:1 put:(Character value:16r151);
+				at:2 put:(Character value:16rFF00);
+				yourself)
+	thenDo:[:context |
+		    self assert:(context displayString bitsPerCharacter == 8).
+		    self assert:(context fullPrintString bitsPerCharacter == 8).
+	       ].
 
     "
      self new testDisplayString1
@@ -338,12 +338,12 @@
     arg := x.
 
     p := [
-        [
-            lockSet critical:[set add:arg].
-            arg perform:#x .
-        ] ensure:[
-            lockSet critical:[set remove:arg].
-        ].
+	[
+	    lockSet critical:[set add:arg].
+	    arg perform:#x .
+	] ensure:[
+	    lockSet critical:[set remove:arg].
+	].
     ] fork.
 
     "
@@ -360,12 +360,12 @@
     x := 1 @ 1.
 
     p := [:arg |
-        [
-            lockSet critical:[set add:arg].
-            arg perform:#x.
-        ] ensure:[
-            lockSet critical:[set remove:arg].
-        ].
+	[
+	    lockSet critical:[set add:arg].
+	    arg perform:#x.
+	] ensure:[
+	    lockSet critical:[set remove:arg].
+	].
     ] forkWith:(Array with:x).
 
     "
@@ -382,13 +382,13 @@
     x := 1 @ 1.
 
     p := [:arg |
-        [
-            lockSet critical:[set add:arg].
-            arg perform:#x: with:1234.
-            lockSet critical:[set rehash].
-        ] ensure:[
-            lockSet critical:[set remove:arg].
-        ].
+	[
+	    lockSet critical:[set add:arg].
+	    arg perform:#x: with:1234.
+	    lockSet critical:[set rehash].
+	] ensure:[
+	    lockSet critical:[set remove:arg].
+	].
     ] forkWith:(Array with:x).
 
     "
@@ -455,9 +455,9 @@
     ex := self newException.
 someone exceptionObjectIs:ex.
     ^ (ex
-        suspendedContext:thisContext sender
-        parameter:someone originator:someone)
-            raiseRequest.
+	suspendedContext:thisContext sender
+	parameter:someone originator:someone)
+	    raiseRequest.
 ! !
 
 !ContextTest2 class methodsFor:'documentation'!