--- a/compiler/PPCTokenizingCodeGenerator.st	Mon Jun 15 17:12:54 2015 +0100
+++ b/compiler/PPCTokenizingCodeGenerator.st	Mon Jun 15 17:47:38 2015 +0100
@@ -74,7 +74,9 @@
     compiler smartRemember: node child to: mementoVar.
     compiler codeAssign: '{ currentTokenValue . currentTokenType }.' to: currentTokenVar.
 
-    compiler codeStoreValueOf: [ self visit: node child  ] intoVariable: self retvalVar.
+    compiler 
+          codeAssignParsedValueOf:[ self visit:node child ]
+          to:self retvalVar.
 
     compiler smartRestore: node child from: mementoVar.
     compiler codeAssign: '(', currentTokenVar, ' at: 1).' to: 'currentTokenValue'.
@@ -93,7 +95,7 @@
         
         child acceptsEpsilon ifTrue: [  
             possibleError := false.
-            compiler codeStoreValueOf: [ self visit: child ] intoVariable: self retvalVar.
+            compiler codeAssignParsedValueOf:[ self visit:child ] to:self retvalVar.
             compiler codeReturn
         ] ifFalse: [
             child firstSetWithTokens do: [ :first |
@@ -103,7 +105,7 @@
                 compiler add: '(self ', tokenMethodName asString, ')'.
                 compiler addOnLine: ' ifTrue: ['.
                 compiler indent.
-                    compiler codeStoreValueOf: [ self visit: child ] intoVariable: self retvalVar.
+                    compiler codeAssignParsedValueOf:[ self visit:child ] to:self retvalVar.
                     compiler add: 'error ifFalse: ['.
                     compiler indent.
                         compiler codeReturn: self retvalVar.
@@ -146,7 +148,7 @@
         compiler add: '(self ', tokenMethodName asString, ')'.
         compiler addOnLine: ' ifTrue: ['.
         compiler indent.
-            compiler codeStoreValueOf: [ self visit: child ] intoVariable: self retvalVar.
+            compiler codeAssignParsedValueOf:[ self visit:child ] to:self retvalVar.
             compiler codeReturn: self retvalVar.
         compiler dedent.
         compiler add: '] ifFalse:['
@@ -202,7 +204,9 @@
     self visit: node whitespace.
     
     compiler codeHaltIfShiftPressed.
-    compiler codeStoreValueOf: [ self visit: node parser ] intoVariable: self retvalVar.
+    compiler 
+          codeAssignParsedValueOf:[ self visit:node parser ]
+          to:self retvalVar.
     compiler codeReturn.
 !