--- a/parsers/smalltalk/tests/PPSmalltalkGrammarTests.st	Tue Oct 07 09:42:03 2014 +0100
+++ b/parsers/smalltalk/tests/PPSmalltalkGrammarTests.st	Wed Oct 08 00:08:21 2014 +0100
@@ -7,9 +7,6 @@
 	category:'PetitSmalltalk-Tests'
 !
 
-PPSmalltalkGrammarTests comment:''
-!
-
 
 !PPSmalltalkGrammarTests class methodsFor:'accessing'!
 
@@ -482,9 +479,14 @@
 !
 
 testNumberLiteral15
-	self 
-		parse: '0.50s2'
-		rule: #numberLiteral
+    ((Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ 
+        ^ self.
+    ].
+    self 
+            parse: '0.50s2'
+            rule: #numberLiteral
+
+    "Modified: / 07-10-2014 / 23:02:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testNumberLiteral2