--- a/compiler/PPCCompiler.st	Wed May 27 08:37:09 2015 +0100
+++ b/compiler/PPCCompiler.st	Fri May 29 07:25:31 2015 +0100
@@ -119,14 +119,14 @@
 
 addConstant: value as: name    
     (constants includesKey: name) ifTrue:[ 
-        (constants at: name) ~~ value ifTrue:[ 
+        (constants at: name) ~= value ifTrue:[ 
             self error:'Duplicate constant!!'.
         ].
         ^ self.
     ].
     constants at: name put: value
 
-    "Modified: / 26-05-2015 / 17:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-05-2015 / 07:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addOnLine: string