diff --git a/library/hashtable.lisp b/library/hashtable.lisp
index 406eb73b2..856cdcb38 100644
--- a/library/hashtable.lisp
+++ b/library/hashtable.lisp
@@ -68,7 +68,7 @@
 
   (declare with-capacity (Hash :key => Integer -> Hashtable :key :value))
   (define (with-capacity capacity)
-    "Crate a new empty hashtable with a given capacity"
+    "Create a new empty hashtable with a given capacity"
     (match (%get-hash-test-funcs)
       ((Tuple test hash)
        (%make-hashtable test hash capacity))))
diff --git a/src/entry.lisp b/src/entry.lisp
index a8d12da52..92f30c22a 100644
--- a/src/entry.lisp
+++ b/src/entry.lisp
@@ -111,7 +111,7 @@
 
           (when accessors
             (tc:tc-error (first accessors)
-                         "Amqbiguous accessor"
+                         "Ambiguous accessor"
                          "accessor is ambiguous"))
 
           (let* ((preds (tc:reduce-context env preds subs))
diff --git a/src/typechecker/define-class.lisp b/src/typechecker/define-class.lisp
index 187f00656..514798d7d 100644
--- a/src/typechecker/define-class.lisp
+++ b/src/typechecker/define-class.lisp
@@ -372,7 +372,7 @@
 
   (let ((var-names (mapcar #'parser:keyword-src-name (parser:toplevel-define-class-vars class))))
 
-    ;; Ensure fudneps don't have duplicate variables
+    ;; Ensure fundeps don't have duplicate variables
     (labels ((check-duplicate-fundep-variables (vars)
                (check-duplicates
                 vars