Index: /branches/watchpoints/level-0/X86/X8632/x8632-utils.lisp
===================================================================
--- /branches/watchpoints/level-0/X86/X8632/x8632-utils.lisp	(revision 12981)
+++ /branches/watchpoints/level-0/X86/X8632/x8632-utils.lisp	(revision 12982)
@@ -392,9 +392,6 @@
   (jmp-subprim .SPmakeu32))
 
-(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)
+(defx8632lapfunction %watch ((thing arg_z))
+  (check-nargs 1)
   (movl ($ arch::watch-trap-function-watch) (%l imm0))
   (uuo-watch-trap)