diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index d590188bc..88858bdde 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -253,10 +253,10 @@
 	  (if (and (symbolp fname)
 		   (not (eql (symbol-package fname) (find-package "CL"))))
 	      (progn
-		(cmpnote "Emiting FUNCALL for ~S" fname)
+		(cmpnote "Emitting FUNCALL for ~S" fname)
 		(add-symbol fname))
 	      (progn
-		(cmpnote "Emiting FDEFINITION for ~S" fname)
+		(cmpnote "Emitting FDEFINITION for ~S" fname)
 		(setq loc (list 'FDEFINITION fname))))))
   (do ((i 0 (1+ i))
        (l args (cdr l)))
diff --git a/src/cmp/cmptype.lsp b/src/cmp/cmptype.lsp
index 5e7b0ffe5..dd44b09ab 100644
--- a/src/cmp/cmptype.lsp
+++ b/src/cmp/cmptype.lsp
@@ -173,10 +173,10 @@
 		 (t
 		  `(OR ,t1 ,t2))))
 	  ((null tag1)
-	   (cmpwarn "Unkonwn type ~S" t1)
+	   (cmpwarn "Unknown type ~S" t1)
 	   'T)
 	  (t
-	   (cmpwarn "Unkonwn type ~S" t2)
+	   (cmpwarn "Unknown type ~S" t2)
 	   'T))))
 
 (defun type>= (type1 type2)