diff --git a/pathnames/pathname.lsp b/pathnames/pathname.lsp
index fa7ae8f064691047fa4dd5f8b51c14af6b0aebf0..8d97238ac8330bc8fdcec3b48998b33c717a6a1b 100644
--- a/pathnames/pathname.lsp
+++ b/pathnames/pathname.lsp
@@ -81,7 +81,7 @@
                                         :initial-contents
                                         "XXpathname.txtX"
                                         :element-type etype)))
-                    (make-array 8
+                    (make-array 12
                                 :element-type etype
                                 :displaced-to s
                                 :displaced-index-offset 2)))))