--- a/compiler/PPCTokenCodeGenerator.st	Mon Jun 15 17:12:54 2015 +0100
+++ b/compiler/PPCTokenCodeGenerator.st	Mon Jun 15 17:47:38 2015 +0100
@@ -32,7 +32,9 @@
 !PPCTokenCodeGenerator methodsFor:'visiting'!
 
 visitOptionalNode: node
-    compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
+    compiler 
+          codeAssignParsedValueOf:[ self visit:node child ]
+          to:self retvalVar.
     compiler codeAssign: 'false.' to: 'error'.
     compiler codeReturn.
 !
@@ -61,7 +63,7 @@
 
     
     compiler codeAssign: 'context position + 1.' to: startVar.
-    compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
+    compiler codeAssignParsedValueOf:[ self visit:node child ] to:#whatever.
     compiler add: 'error ifTrue: [ ^ error := false ].'.
 
     compiler codeAssign: 'context position.' to: endVar.
@@ -110,7 +112,9 @@
                to: 'currentTokenValue := ', self retvalVar.
     
     compiler addComment: 'Consume Whitespace:'.
-    compiler codeStoreValueOf: [ self visit: node whitespace ] intoVariable: #whatever.
+    compiler 
+          codeAssignParsedValueOf:[ self visit:node whitespace ]
+          to:#whatever.
     compiler nl.
     
     compiler add: '^ true'.
@@ -142,14 +146,16 @@
     ].
 
     compiler codeAssign: 'context position + 1.' to: startVar.
-    compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
+    compiler codeAssignParsedValueOf:[ self visit:node child ] to:#whatever.
 
     compiler add: 'error ifTrue: [ ^ error := false ].'.
 
         compiler codeAssign: 'context position.' to: endVar.
     
         compiler addComment: 'Consume Whitespace:'.
-        compiler codeStoreValueOf: [ self visit: node whitespace ] intoVariable: #whatever.
+        compiler 
+              codeAssignParsedValueOf:[ self visit:node whitespace ]
+              to:#whatever.
         compiler nl.