Index: /trunk/ccl/level-1/ppc-error-signal.lisp
===================================================================
--- /trunk/ccl/level-1/ppc-error-signal.lisp	(revision 5471)
+++ /trunk/ccl/level-1/ppc-error-signal.lisp	(revision 5472)
@@ -38,5 +38,5 @@
 			     (funcall err-fn 
 				      #.(car (rassoc 'type-error *kernel-simple-error-classes*))
-				      (list rb-value (logandc2 errnum arch::error-type-error)
+				      (list rb-value (logandc2 errnum arch::error-type-error))
 				      frame-ptr))
 			    ((eql errnum arch::error-udf)