--- a/compiler/tests/PEGFsaGeneratorTest.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/PEGFsaGeneratorTest.st	Mon Sep 07 08:20:46 2015 +0100
@@ -368,10 +368,14 @@
 !
 
 testAAAorA_Astar
-    <skip> "/ JK: please remove this once fixed...
+
 
     | parser |
 
+    " JK: please remove this once fixed... "
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) 
+        ifTrue:[ self skipIf: true description: 'never worked, JK?' ]. 
+
     parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star.
     node := parser asCompilerTree.
 
@@ -390,7 +394,7 @@
     self assert: fsa fail: 'aaa'.
     self assert: fsa fail: 'a'.
 
-    "Modified (format): / 17-08-2015 / 22:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2015 / 07:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testAAAstar_AA