diff --git a/code/mipsstrops.lisp b/code/mipsstrops.lisp
index 854d121d62b488c61912d68df4208bfcabfe79f0..aac4aa74bbab4819bd85d7fe7ca8bcfcfe7319d6 100644
--- a/code/mipsstrops.lisp
+++ b/code/mipsstrops.lisp
@@ -43,21 +43,21 @@ be simple strings."
 	   (index2 start2 (1+ index2)))
 	  ((= index1 end1) nil)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1))))
      ((> len1 len2)
       (do ((index1 start1 (1+ index1))
 	   (index2 start2 (1+ index2)))
 	  ((= index2 end2) index1)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1))))
      (t
       (do ((index1 start1 (1+ index1))
 	   (index2 start2 (1+ index2)))
 	  ((= index1 end1) index1)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1)))))))
 
 (defun %sp-reverse-string-compare (string1 start1 end1 string2 start2 end2)
@@ -73,21 +73,21 @@ be simple strings."
 	   (index2 (1- end2) (1- index2)))
 	  ((< index1 start1) nil)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1))))
      ((> len1 len2)
       (do ((index1 (1- end1) (1- index1))
 	   (index2 (1- end2) (1- index2)))
 	  ((< index2 start2) index1)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1))))
      (t
       (do ((index1 (1- end1) (1- index1))
 	   (index2 (1- end2) (1- index2)))
 	  ((< index1 start1) index1)
 	(declare (fixnum index1 index2))
-	(if (char/= (elt string1 index1) (elt string2 index2))
+	(if (char/= (schar string1 index1) (schar string2 index2))
 	    (return index1)))))))
 
 ;(defun %sp-find-character-with-attribute (string start end table mask)