diff --git a/basis/cpu/x86/x86-tests.factor b/basis/cpu/x86/x86-tests.factor
index 17c710580e..72280319b9 100644
--- a/basis/cpu/x86/x86-tests.factor
+++ b/basis/cpu/x86/x86-tests.factor
@@ -1,8 +1,8 @@
-IN: cpu.x86.tests
 USING: compiler.cfg.debugger compiler.cfg.instructions
-compiler.codegen.gc-maps compiler.codegen.relocation cpu.architecture
-cpu.x86.features kernel kernel.private make math math.libm namespaces sequences
-tools.test ;
+compiler.codegen.gc-maps compiler.codegen.relocation compiler.cfg.registers
+cpu.architecture cpu.x86.features kernel kernel.private make math math.libm
+namespaces sequences system tools.test ;
+IN: cpu.x86.tests
 
 { } [
     [ { float } declare fsqrt ]
@@ -31,3 +31,9 @@ tools.test ;
     ] B{ } make drop
     gc-maps get length
 ] unit-test
+
+! %clear
+{ t } [
+    [ D 0 %clear ] B{ } make
+    cpu x86.32? B{ 199 6 144 18 0 0 } B{ 73 199 6 144 18 0 0 } ? =
+] unit-test
diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 6cd5c7cd5b..ed946d9e04 100644
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -91,7 +91,7 @@ M: x86 %replace-imm
     } cond ;
 
 M: x86 %clear ( loc -- )
-    loc>operand 297 MOV ;
+    297 swap %replace-imm ;
 
 : (%inc) ( n reg -- ) swap cells dup 0 > [ ADD ] [ neg SUB ] if ; inline