--- a/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Tue Oct 07 09:42:03 2014 +0100
+++ b/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Wed Oct 08 00:08:21 2014 +0100
@@ -7,8 +7,6 @@
 	category:'PetitSmalltalk-Tests'
 !
 
-PPSmalltalkParserTests comment:''
-!
 
 !PPSmalltalkParserTests methodsFor:'accessing'!
 
@@ -19,10 +17,27 @@
 !PPSmalltalkParserTests methodsFor:'private'!
 
 assert: aNode format: aString
-	aNode isCollection
-		ifFalse: [ ^ self assert: (Array with: aNode) format: (Array with: aString) ].
-	self assert: aNode size equals: aString size.
-	aNode with: aString do: [ :node :string | self assert: (RBConfigurableFormatter format: node) equals: string ]
+    | formatter savedSpaceAfterKeywordSelector |
+
+    ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ 
+        savedSpaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
+        RBFormatter spaceAfterKeywordSelector:true.
+        formatter := RBFormatter new
+    ] ifFalse:[ 
+        formatter := RBConfigurableFormatter
+    ].
+    [ 
+        aNode isCollection
+                ifFalse: [ ^ self assert: (Array with: aNode) format: (Array with: aString) ].
+        self assert: aNode size equals: aString size.
+        aNode with: aString do: [ :node :string | self assert: (formatter format: node) equals: string ]
+    ] ensure:[ 
+        ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ 
+            RBFormatter spaceAfterKeywordSelector:savedSpaceAfterKeywordSelector.
+        ]
+    ].
+
+    "Modified: / 07-10-2014 / 23:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPSmalltalkParserTests methodsFor:'testing'!
@@ -684,9 +699,14 @@
 !
 
 testNumberLiteral15
-	super testNumberLiteral15.
-	self assert: result isLiteralNode.
-	self assert: result value equals: 1 / 2
+    ((Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ 
+        ^ self.
+    ]. 
+    super testNumberLiteral15.
+    self assert: result isLiteralNode.
+    self assert: result value equals: 1 / 2
+
+    "Modified: / 07-10-2014 / 23:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testNumberLiteral2
@@ -1299,3 +1319,10 @@
 	self assert: result body statements isEmpty
 ! !
 
+!PPSmalltalkParserTests class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+