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)))))