Index: /trunk/source/level-0/X86/X8632/x8632-utils.lisp
===================================================================
--- /trunk/source/level-0/X86/X8632/x8632-utils.lisp	(revision 13004)
+++ /trunk/source/level-0/X86/X8632/x8632-utils.lisp	(revision 13005)
@@ -394,10 +394,6 @@
 (defx8632lapfunction %watch ((uvector arg_z))
   (check-nargs 1)
-  ;; May want to tighten this up to disallow watching functions,
-  ;; symbols, etc.
-  (trap-unless-lisptag= uvector x8632::tag-misc imm0)
   (movl ($ arch::watch-trap-function-watch) (%l imm0))
   (uuo-watch-trap)
-  (movl ($ nil) (%l arg_z))
   (single-value-return))
 
Index: /trunk/source/level-0/X86/x86-utils.lisp
===================================================================
--- /trunk/source/level-0/X86/x86-utils.lisp	(revision 13004)
+++ /trunk/source/level-0/X86/x86-utils.lisp	(revision 13005)
@@ -449,5 +449,4 @@
   (movl ($ arch::watch-trap-function-watch) (%l imm0))
   (uuo-watch-trap)
-  (movl ($ nil) (%l arg_z))
   (single-value-return))