diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 4a3c9300da8b8ca68311a1096a1108b25b277e56..482cac6c5e463f22ce74be0f3517caabf9d0267a 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.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/compiler/sparc/char.lisp,v 1.10 2003/07/01 18:47:01 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.11 2003/07/08 13:50:36 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -166,7 +166,7 @@
   (:translate char<)
   (:variant :ltu :geu))
 
-(define-vop (fast-char>-c/base-char/c base-char-compare-c)
+(define-vop (fast-char>-c/base-char base-char-compare-c)
   (:translate char>)
   (:variant :gtu :leu))
 
diff --git a/compiler/x86/char.lisp b/compiler/x86/char.lisp
index 45521e795c1a71bf484de44249d35a91e3905885..bf2bb425e6a4182003a4cdbd66061321ac312611 100644
--- a/compiler/x86/char.lisp
+++ b/compiler/x86/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.6 2003/07/01 20:02:01 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.7 2003/07/08 13:50:36 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -190,7 +190,7 @@
   (:translate char<)
   (:variant :b :nb))
 
-(define-vop (fast-char>-c/base-char/c base-char-compare-c)
+(define-vop (fast-char>-c/base-char base-char-compare-c)
   (:translate char>)
   (:variant :a :na))