diff --git a/src/libraries/OS-Independent/System/Directory.icl b/src/libraries/OS-Independent/System/Directory.icl
index 546f49f7ff6c132b7be792e45bc2e71bf038fd0a..d824bb51581926260559a59ae1a60bc1b16224ae 100644
--- a/src/libraries/OS-Independent/System/Directory.icl
+++ b/src/libraries/OS-Independent/System/Directory.icl
@@ -65,7 +65,7 @@ readDirectoryTree :: !FilePath !(Maybe Int) !*World -> *(RTree (FilePath, MaybeO
 readDirectoryTree fp md w = scan (maybe -1 id md) fp "" w
 where
 	scan md acc fp w
-	# fp = acc </> fp
+	# fp = if (size fp==0) acc (acc </> fp)
 	# (mfi, w) = getFileInfo fp w
 	| isError mfi = (RNode (fp, liftError mfi) [], w)
 	| md == 0 = (RNode (fp, mfi) [], w)