--- a/tests/PPExtensionTest.st	Tue Jun 02 17:25:57 2015 +0100
+++ b/tests/PPExtensionTest.st	Wed Jun 03 06:23:49 2015 +0100
@@ -112,16 +112,18 @@
 !PPExtensionTest methodsFor:'testing-stream'!
 
 testStream
-	| dot stream |
-	dot := (Character codePoint: 183) asString.
-	stream := 'abc' readStream asPetitStream.
-	self assert: stream class equals: PPStream.
-	self assert: stream printString equals: dot , 'abc'.
-	self assert: stream peek equals: $a.
-	self assert: stream uncheckedPeek equals: $a.
-	self assert: stream next equals: $a.
-	self assert: stream printString equals: 'a' , dot , 'bc'.
-	self assert: stream asPetitStream equals: stream
+        | dot stream |
+        dot := String with: (Character codePoint: 183).
+        stream := 'abc' readStream asPetitStream.
+        self assert: stream class equals: PPStream.
+        self assert: stream printString equals: dot , 'abc'.
+        self assert: stream peek equals: $a.
+        self assert: stream uncheckedPeek equals: $a.
+        self assert: stream next equals: $a.
+        self assert: stream printString equals: 'a' , dot , 'bc'.
+        self assert: stream asPetitStream equals: stream
+
+    "Modified: / 02-06-2015 / 17:22:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testText