diff --git a/assembly/hppa/arith.lisp b/assembly/hppa/arith.lisp
index d2147350f59a4d22445f1363a0e727a5976e829d..b56e73fb5c1e8d6cf472dab4d8cc17c1bcc9ed7c 100644
--- a/assembly/hppa/arith.lisp
+++ b/assembly/hppa/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/hppa/arith.lisp,v 1.2 1992/06/13 10:11:02 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/hppa/arith.lisp,v 1.3 1992/06/22 15:46:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -116,9 +116,9 @@
 			  (:temp lra descriptor-reg lra-offset)
 			  (:temp nargs any-reg nargs-offset)
 			  (:temp ocfp any-reg ocfp-offset))
-  (inst extru x 31 2 zero-tn :<>)
+  (inst extru x 31 2 zero-tn :=)
   (inst b do-static-fun :nullify t)
-  (inst extru y 31 2 zero-tn :<>)
+  (inst extru y 31 2 zero-tn :=)
   (inst b do-static-fun :nullify t)
   (inst addo x y res)
   (lisp-return lra :offset 2)
@@ -145,9 +145,9 @@
 			  (:temp lra descriptor-reg lra-offset)
 			  (:temp nargs any-reg nargs-offset)
 			  (:temp ocfp any-reg ocfp-offset))
-  (inst extru x 31 2 zero-tn :<>)
+  (inst extru x 31 2 zero-tn :=)
   (inst b do-static-fun :nullify t)
-  (inst extru y 31 2 zero-tn :<>)
+  (inst extru y 31 2 zero-tn :=)
   (inst b do-static-fun :nullify t)
   (inst subo x y res)
   (lisp-return lra :offset 2)
@@ -180,9 +180,9 @@
 				  (:temp lra descriptor-reg lra-offset)
 				  (:temp nargs any-reg nargs-offset)
 				  (:temp ocfp any-reg ocfp-offset))
-	  (inst extru x 31 2 zero-tn :<>)
+	  (inst extru x 31 2 zero-tn :=)
 	  (inst b do-static-fn :nullify t)
-	  (inst extru y 31 2 zero-tn :<>)
+	  (inst extru y 31 2 zero-tn :=)
 	  (inst b do-static-fn :nullify t)
 
 	  (inst comclr x y zero-tn ,cond)
@@ -273,4 +273,3 @@
 
   RETURN-T
   (load-symbol res t))
-