From a39b4fd338e271ca5ef6b55b467ec0c5015e7b28 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 12 Nov 2007 17:13:59 -0500
Subject: [PATCH] Fix bug

---
 core/io/files/files.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 498d23b3ca..967f2f7913 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -70,7 +70,7 @@ TUPLE: no-parent-directory path ;
         { [ dup root-directory? ] [ ] }
         { [ dup [ path-separator? ] contains? not ] [ drop "." ] }
         { [ t ] [
-            last-path-separator drop 1+ cut
+            dup last-path-separator drop 1+ cut
             special-directory? [ no-parent-directory ] when
         ] }
     } cond ;