--- a/compiler/tests/PPCCodeGeneratorTest.st	Wed Jun 03 09:06:49 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Fri Jun 05 00:05:08 2015 +0100
@@ -435,10 +435,29 @@
         parse:'cz'
         to:'cz'.
     self assert:parser fail:''.
-    self assert:parser fail:'asd'.
+    self assert:parser fail:'a'.
 
     "Created: / 02-06-2015 / 17:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-06-2015 / 06:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2015 / 22:44:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testMappedActionNode2
+    node := ((#letter asParser , #letter asParser) 
+            map:[:a :b | String with:a with:b ]) asCompilerTree.
+    node child markForInline.
+    self compileTree:node.
+    self 
+        assert:parser
+        parse:'ab'
+        to:'ab'.
+    self 
+        assert:parser
+        parse:'cz'
+        to:'cz'.
+    self assert:parser fail:''.
+    self assert:parser fail:'a'.
+
+    "Created: / 04-06-2015 / 23:13:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testMessagePredicate