--- IO-AIO/bin/treescan	2011/01/09 05:10:28	1.5
+++ IO-AIO/bin/treescan	2011/09/27 01:43:03	1.6
@@ -53,7 +53,11 @@
       printfn $path, $files unless $opt_nofiles;
 
       if ($opt_stat) {
-         aio_lstat "$path$_" for @$files;
+         aio_wd $path, sub {
+            my $wd = shift;
+
+            aio_lstat [$wd, $_] for @$files;
+         };
       }
 
       &scan ("$path$_") for @$dirs;