diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp
index 9e3f8307a..c1ef62678 100644
--- a/src/cmp/proclamations.lsp
+++ b/src/cmp/proclamations.lsp
@@ -1036,7 +1036,7 @@
 
 (proclamation directory (pathname-designator &key) list)
 (proclamation probe-file (pathname-designator) (or pathname null))
-(proclamation ensure-directories-exist (pathname &key)
+(proclamation ensure-directories-exist (pathname-designator &key)
               (values pathname gen-bool))
 (proclamation truename (pathname-designator) pathname)
 (proclamation file-author (pathname-designator) (or string null))