Index: /trunk/source/level-0/PPC/ppc-utils.lisp
===================================================================
--- /trunk/source/level-0/PPC/ppc-utils.lisp	(revision 12871)
+++ /trunk/source/level-0/PPC/ppc-utils.lisp	(revision 12872)
@@ -600,6 +600,6 @@
   (error "watching objects not supported on PPC yet"))
 
-(defun %unwatch (watched)
-  (declare (ignore watched))
+(defun %unwatch (watched new)
+  (declare (ignore watched new))
   (error "watching objects not supported on PPC yet"))