From 68fbd92703caf6b4e5747289f065bf5f83b57ce6 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 13 May 2008 18:36:54 -0500
Subject: [PATCH] io.unix.file: update read-link

---
 extra/io/unix/files/files.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor
index d30e5c93a5..69d4356d18 100755
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@@ -105,6 +105,4 @@ M: unix make-link ( path1 path2 -- )
     normalize-path symlink io-error ;
 
 M: unix read-link ( path -- path' )
-    normalize-path
-    PATH_MAX [ <byte-array> tuck ] [ ] bi readlink
-    dup io-error head-slice >string ;
+   normalize-path read-symbolic-link ;
\ No newline at end of file