--- a/compiler/tests/PEGFsaGeneratorTest.st	Tue Sep 08 01:31:37 2015 +0100
+++ b/compiler/tests/PEGFsaGeneratorTest.st	Tue Sep 08 02:06:11 2015 +0100
@@ -368,13 +368,11 @@
 !
 
 testAAAorA_Astar
-
-
     | parser |
 
-    " JK: please remove this once fixed... "
-    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) 
-        ifTrue:[ self skipIf: true description: 'never worked, JK?' ]. 
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[  
+        self skipIf: true description: 'JK, remove this once fixed'.
+    ].   
 
     parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star.
     node := parser asCompilerTree.
@@ -394,7 +392,7 @@
     self assert: fsa fail: 'aaa'.
     self assert: fsa fail: 'a'.
 
-    "Modified: / 07-09-2015 / 07:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-09-2015 / 01:52:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testAAAstar_AA