diff -r 72074e22bd61 -r 90eb2d1f7bed compiler/tests/extras/PPLL1ExpressionGrammar.st
--- a/compiler/tests/extras/PPLL1ExpressionGrammar.st	Mon May 25 02:49:22 2015 +0100
+++ b/compiler/tests/extras/PPLL1ExpressionGrammar.st	Tue May 26 07:27:15 2015 +0100
@@ -13,12 +13,14 @@
 
 add
    ^ prod, addPrime optional
- 	map: [ :_prod :_addPrime |
-		_addPrime isNil 
-			ifTrue: [ _prod  ]
-			ifFalse: [ Array with: _prod withAll: _addPrime ]
-		
-	]
+        map: [ :_prod :_addPrime |
+                _addPrime isNil 
+                        ifTrue: [ _prod  ]
+                        ifFalse: [ (Array with: _prod) , _addPrime ]
+                
+        ]
+
+    "Modified (format): / 26-05-2015 / 07:23:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addPrime
@@ -27,12 +29,14 @@
 
 mul
    ^ prim, mulPrime optional
- 	map: [ :_prim :_mulPrime |
-		_mulPrime isNil 
-			ifTrue: [ _prim  ]
-			ifFalse: [ Array with: _prim withAll: _mulPrime ]
-		
-	]
+        map: [ :_prim :_mulPrime |
+                _mulPrime isNil 
+                        ifTrue: [ _prim  ]
+                        ifFalse: [ (Array with: _prim) , _mulPrime ]
+                
+        ]
+
+    "Modified (format): / 26-05-2015 / 07:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 mulPrime
@@ -61,11 +65,13 @@
 
 term
     ^ prod, termPrime optional
- 	map: [ :_prod :_termPrime |
+        map: [ :_prod :_termPrime |
         _termPrime isNil 
             ifTrue: [ _prod  ]
-            ifFalse: [ Array with: _prod withAll: _termPrime ]
-    ]	
+            ifFalse: [ (Array with: _prod) , _termPrime ]
+    ]
+
+    "Modified: / 26-05-2015 / 07:24:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 termPrime