Index: /trunk/ccl/level-1/ppc-trap-support.lisp
===================================================================
--- /trunk/ccl/level-1/ppc-trap-support.lisp	(revision 6282)
+++ /trunk/ccl/level-1/ppc-trap-support.lisp	(revision 6283)
@@ -709,5 +709,5 @@
 					:unsigned-fullword the-trap
 					:signed-doubleword  arg0
-					:signed-doublewod arg1)
+					:signed-doubleword arg1)
   ;; tdgti nargs,0
   ;; time for event polling.