diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1d2e0f3436681dd4da718476dc3c3b5b7ab222ae..449fd42376f9d36cc3a8ce7b9336caf059c1acc5 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## Unreleased
+
++ Fix bug with determining type of entries in v7 archives.
+
 ## v0.1.2 - September 25, 2021
 
 + Fix bug where strings read from headers were not bounded to the length of the
diff --git a/src/v7.lisp b/src/v7.lisp
index 599504b9b78a29e93bf18925fdf34f088748a519..e03afc0e66ab1bbf028631663d6e33e8153c2549 100644
--- a/src/v7.lisp
+++ b/src/v7.lisp
@@ -25,7 +25,7 @@
   'v7-header)
 
 (defmethod entry-type ((tar-file v7-tar-file) header)
-  (if (alexandria:ends-with +ascii-/+ (name header))
+  (if (alexandria:ends-with #\/ (name header))
       'directory-entry
       (alexandria:switch ((typeflag header))
         (+tar-regular-file+
diff --git a/tar-file.asd b/tar-file.asd
index eb0093f6407c2ebc2a48ec401f5ac63b97038492..640448b994dba5c6ee797e3a2b6fab33c9f08ceb 100644
--- a/tar-file.asd
+++ b/tar-file.asd
@@ -1,7 +1,7 @@
 ;;; -*- mode: lisp -*-
 
 (asdf:defsystem #:tar-file
-  :version "0.1.2"
+  :version "0.1.3"
   :author "Eric Timmons <eric@timmons.dev>"
   :maintainer "Eric Timmons <eric@timmons.dev>"
   :description "A package for reading and writing physical entries from/to tar files."