diff --git a/code/type.lisp b/code/type.lisp
index fdeabb344bdb28f7c6af0636e3f0365ef99253bf..1d6d512b93e5dfd1d9524dfadbab248e5c9f1877 100644
--- a/code/type.lisp
+++ b/code/type.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.22 1997/09/05 19:12:10 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.23 1997/12/18 16:49:10 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1261,10 +1261,10 @@
 	      :complexp complexp1
 	      :low (numeric-bound-max (numeric-type-low type1)
 				      (numeric-type-low type2)
-				      < <= t)
+				      <= < t)
 	      :high (numeric-bound-max (numeric-type-high type1)
 				       (numeric-type-high type2)
-				       > >= t)))))))
+				       >= > t)))))))
 
 
 (cold-load-init
@@ -1469,13 +1469,13 @@
 				     class format t)
 		(round-numeric-bound (numeric-type-low type2)
 				     class format t)
-		>= > nil)
+		> >= nil)
 	  :high (numeric-bound-max
 		 (round-numeric-bound (numeric-type-high type1)
 				      class format nil)
 		 (round-numeric-bound (numeric-type-high type2)
 				      class format nil)
-		 <= < nil))
+		 < <= nil))
 	 t))
       (values *empty-type* t)))