diff --git a/ChangeLog b/ChangeLog
index 51d7695..1f6e00b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Apr 26 12:17:51 2009  Minero Aoki  <aamine@loveruby.net>
+
+	* net/loveruby/cflat/asm/PeepholeOptimizer.java: fix bad operator
+	  mnemonic. (fixes 4E)
+
 Mon Apr 20 03:52:10 2009  Minero Aoki  <aamine@loveruby.net>
 
 	* now many tests work (30/1709 failed).
diff --git a/net/loveruby/cflat/asm/PeepholeOptimizer.java b/net/loveruby/cflat/asm/PeepholeOptimizer.java
index fd5cc82..1a1b3c9 100644
--- a/net/loveruby/cflat/asm/PeepholeOptimizer.java
+++ b/net/loveruby/cflat/asm/PeepholeOptimizer.java
@@ -123,7 +123,7 @@ public class PeepholeOptimizer implements AsmOptimizer {
             new InsnPattern("imul", imm(0), reg()),
             new InsnTransform() {
                 public Instruction apply(Instruction insn) {
-                    return insn.build("xorl", insn.operand2(), insn.operand2());
+                    return insn.build("xor", insn.operand2(), insn.operand2());
                 }
             }
         ));