Index: /branches/watchpoints/level-1/x86-trap-support.lisp
===================================================================
--- /branches/watchpoints/level-1/x86-trap-support.lisp	(revision 12930)
+++ /branches/watchpoints/level-1/x86-trap-support.lisp	(revision 12931)
@@ -451,4 +451,8 @@
 		      (allow ()
 			:report "Allow this write."
+			:test (lambda (c)
+				(declare (ignore c))
+				(string= (subseq (x86-di-mnemonic insn) 0 3)
+					 "mov"))
 			(let ((result nil)
 			      (ptr (%int-to-ptr
@@ -462,5 +466,5 @@
 			  (if result
 			    (setq skip insn-length)
-			    (error "can't emulate this write"))))
+			    (error "couldn't emulate this write"))))
 		      (ignore ()
 			:report "Ignore this write."