Index: /trunk/ccl/level-1/ppc-trap-support.lisp
===================================================================
--- /trunk/ccl/level-1/ppc-trap-support.lisp	(revision 6279)
+++ /trunk/ccl/level-1/ppc-trap-support.lisp	(revision 6280)
@@ -474,7 +474,6 @@
 					:address pc-or-index 
 					:unsigned-fullword the-trap
-					:signed-fullword  ignore-0
-					:signed-fullword ignore-1)
-  (declare (ignore ignore-1  ignore-0))
+					:signed-fullword  arg-0
+					:signed-fullword arg-1)
   ;; twgti nargs,0
   ;; time for event polling.
@@ -488,4 +487,10 @@
                 instr ra temp rs condition)
             (cond
+              ((= the-trap #$SIGBUS)
+               (%error (make-condition 'invalid-memory-access
+                                       :address arg-0
+                                       :write-p (not (zerop arg-1)))
+                       ()
+                       frame-ptr))              
              ;; tweqi RA nil-value - resolve-eep, or resolve-foreign-variable
 	      ((and (match-instr the-trap
@@ -703,7 +708,6 @@
 					:address pc-or-index 
 					:unsigned-fullword the-trap
-					:signed-fullword  ignore-0
-					:signed-fullword ignore-1)
-  (declare (ignore ignore-1  ignore-0))
+					:signed-doubleword  arg0
+					:signed-doublewod arg1)
   ;; tdgti nargs,0
   ;; time for event polling.
@@ -737,4 +741,10 @@
                     (setf (xp-gpr-lisp xp (RA-field the-trap))
                           (fv.addr eep-or-fv))))))
+              ((= the-trap #$SIGBUS)
+               (%error (make-condition 'invalid-memory-access
+                                       :address arg-0
+                                       :write-p (not (zerop arg-1)))
+                       ()
+                       frame-ptr))
               ;; tdnei RA,N; RA = nargs
               ;; nargs check, no optional or rest involved