--- a/compiler/PPCTokenCodeGenerator.st	Thu May 21 14:12:22 2015 +0100
+++ b/compiler/PPCTokenCodeGenerator.st	Fri Jul 24 15:06:54 2015 +0100
@@ -31,7 +31,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.
 !
@@ -60,7 +62,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.
@@ -109,7 +111,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'.
@@ -141,14 +145,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.