--- a/compiler/tests/PPCGuardTest.st	Tue May 12 01:24:03 2015 +0100
+++ b/compiler/tests/PPCGuardTest.st	Thu May 21 14:12:22 2015 +0100
@@ -6,7 +6,7 @@
 	instanceVariableNames:'guard compiler'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'PetitCompiler-Tests-Core'
+	category:'PetitCompiler-Tests-Guards'
 !
 
 
@@ -41,7 +41,7 @@
     guard compileGuard: compiler.
     
     self assert: compiler lines size = 1.
-    self assert: compiler lines first = ('(context peek = ', $a storeString ,')').
+    self assert: compiler lines first = ('(context peek == ', $a storeString ,')').
 !
 
 testCompiling4
@@ -50,7 +50,7 @@
     guard compileGuard: compiler.
     
     self assert: compiler lines size = 1.
-    self assert: compiler lines first = ('(context peek = ', $f storeString ,')').
+    self assert: compiler lines first = ('(context peek == ', $f storeString ,')').
 !
 
 testIdentifierToken