diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi
index 9fc5ef5de..b245ab8b7 100644
--- a/doc/ref/api-evaluation.texi
+++ b/doc/ref/api-evaluation.texi
@@ -651,7 +651,7 @@ by @code{file-encoding}, if any, again by using
 @deffn {Scheme Procedure} file-encoding port
 @deffnx {C Function} scm_file_encoding port
 Scans the port for an EMACS-like character coding declaration near the
-top of the contents of a port with random-acessible contents.  The
+top of the contents of a port with random-accessible contents.  The
 coding declaration is of the form @code{coding: XXXXX} and must appear
 in a scheme comment.
 
diff --git a/libguile/ports.c b/libguile/ports.c
index 58c7cd0a4..24afbfe40 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1966,7 +1966,7 @@ scm_i_get_port_encoding (SCM port)
     }
 }
 
-/* Returns ENC is if is a recognized encoding.  If it isn't, it tries
+/* Returns ENC if it is a recognized encoding.  If it isn't, it tries
    to find an alias of ENC that is valid.  Otherwise, it returns
    NULL.  */
 static const char *