diff --git a/basis/present/present.factor b/basis/present/present.factor
index 1d9f8d5445..4402281154 100644
--- a/basis/present/present.factor
+++ b/basis/present/present.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors math math.parser strings words vocabs
-kernel effects ;
+USING: accessors effects io.pathnames kernel math math.parser
+strings vocabs words ;
 IN: present
 
 GENERIC: present ( object -- string )
@@ -17,3 +17,5 @@ M: vocab-spec present name>> ;
 M: effect present effect>string ;
 
 M: f present drop "" ;
+
+M: pathname present string>> >string ;