diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index f0505311a..5e2f9264f 100644
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -197,7 +197,7 @@ ecl_object_byte_size(cl_type t)
                 FEerror("ecl_object_byte_size invoked with an immediate type ~D",
                         1, ecl_make_fixnum(1));
         if (t >= t_end)
-                FEerror("ecl_object_byte_size invoked with an unkown type ~D",
+                FEerror("ecl_object_byte_size invoked with an unknown type ~D",
                         1, ecl_make_fixnum(1));
         return type_info[t].size;
 }
diff --git a/src/clx/image.lisp b/src/clx/image.lisp
index cd67ee2d2..158359692 100644
--- a/src/clx/image.lisp
+++ b/src/clx/image.lisp
@@ -2647,7 +2647,7 @@
     (unless (= depth image-depth)
       (if (= image-depth 1)
 	  (unless gcontext (xlib::required-arg gcontext))
-	(error "Pixmap depth ~d incompatable with image depth ~d"
+	(error "Pixmap depth ~d incompatible with image depth ~d"
 	       depth image-depth)))	       
     (put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1)
 							gcontext))