diff --git a/code/numbers.lisp b/code/numbers.lisp
index c027f8360e6c1a56d08b8fc3527235bab3ed72d0..66ada40e097f13602f817ade67a17072c984b220 100644
--- a/code/numbers.lisp
+++ b/code/numbers.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.8 1990/07/09 14:13:42 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.9 1990/07/10 13:17:58 ram Exp $
 ;;;
 ;;; This file contains the definitions of most number functions.
 ;;;
@@ -964,13 +964,11 @@
 			  (> (+ length count)
 			     (integer-length most-positive-fixnum)))
 		     (bignum-ashift-left (make-small-bignum integer) count))
-		    ((and (minusp count) (< count (- length)))
-		     -1)
 		    (t
 		     (truly-the fixnum
 				(ash (truly-the fixnum integer) count))))))
 	   ((minusp count)
-	    -1)
+	    (if (minusp integer) -1 0))
 	   (t
 	    (bignum-ashift-left (make-small-bignum integer) count))))
     (bignum