diff --git a/assembly/sparc/arith.lisp b/assembly/sparc/arith.lisp
index 94d4214c1863cbd724681e8a06d72207c7ff366c..6ad697f9cf617e87f2420b847d9f8468ca8e5731 100644
--- a/assembly/sparc/arith.lisp
+++ b/assembly/sparc/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.3 1990/11/30 10:16:07 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.4 1990/11/30 11:44:11 wlott Exp $
 ;;;
 ;;; Stuff to handle simple cases for generic arithmetic.
 ;;;
@@ -166,8 +166,8 @@
   (inst xorcc temp hi)
   (inst b :eq LOW-FITS-IN-FIXNUM)
   ;; Shift the double word hi:lo down two bits to get rid of the fixnum tag.
-  (inst srl lo 2)
   (inst sll temp hi 30)
+  (inst srl lo 2)
   (inst or lo temp)
   (inst sra hi 2)
   ;; Allocate a BIGNUM for the result.