--- a/compiler/PPCGuard.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PPCGuard.st	Mon Aug 24 15:34:14 2015 +0100
@@ -61,7 +61,7 @@
 !
 
 compileAny: compiler
-    compiler add: '(context atEnd not)'.
+    compiler code: '(context atEnd not)'.
 !
 
 compileCharacter: compiler
@@ -69,11 +69,11 @@
     
     classification keysAndValuesDo: [ :index :value | value ifTrue: [  
         (index > 32 and: [ index < 127 ]) ifTrue: [ 
-            compiler add: '(context peek == ', (Character value: index) storeString, ')'
+            compiler code: '(context peek == ', (Character value: index) storeString, ')'
         ] ifFalse: [ 
             id := compiler idFor: (Character value: index) defaultName: #character.
             compiler addConstant: (Character value: index) as: id.
-            compiler add: '(context peek = ', id, ')'.
+            compiler code: '(context peek = ', id, ')'.
      		] 
     ] ].
 !
@@ -84,7 +84,7 @@
 !
 
 compileMessage: compiler
-    compiler add: '(context peek ', message, ')'
+    compiler code: '(context peek ', message, ')'
 !
 
 testAny
@@ -112,7 +112,7 @@
 
     array := ((classification asOrderedCollection) addLast: false; yourself) asArray.
     compiler addConstant: array as: id.
-    compiler add: '(', id, ' at: context peek asInteger)'.
+    compiler code: '(', id, ' at: context peek asInteger)'.
 !
 
 compileGuard: compiler