Added concept of multiple nodes

[hcoop/domtool2.git] / src / slave.sml

diff --git a/src/slave.sml b/src/slave.sml
index 144a167..4e44a8b 100644 (file)
--- a/src/slave.sml
+++ b/src/slave.sml
@@ -106,7 +106,7 @@ fun enumerateTo p sep fname =
        val outf = TextIO.openOut fname
 
        val first = ref true
-       val baseLen = length (String.fields (fn ch => ch = #"/") Config.resultRoot)
+       val baseLen = length (String.fields (fn ch => ch = #"/") Config.resultRoot) + 1
 
        fun visitDir dname =
            let