diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 07f51881814643aed28aebb936289765aaeb21b3..b7201a434e3c1c8a7373a79ad8f1e319718bba91 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.9 1991/04/13 21:04:47 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.10 1991/04/23 01:24:29 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -364,12 +364,12 @@
 		  (unless (zerop final-bits)
 		    (let ((value
 			   (if (> (+ final-bits src-shift) unit-bits)
-			       (shift-towards-start next src-shift)
 			       (progn
 				 (get-next-src)
 				 (32bit-logical-or
 				  (shift-towards-end next (- src-shift))
-				  (shift-towards-start prev src-shift)))))
+				  (shift-towards-start prev src-shift)))
+			       (shift-towards-start next src-shift)))
 			  (mask (start-mask final-bits))
 			  (orig (funcall dst-ref-fn dst dst-word-offset)))
 		      (declare (type unit mask orig value))