Fix how the dataset directory is constructed.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index cd3081c..b6c6fc0 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -42,8 +42,11 @@
          (experiment-design (get* "ExperimentDesign"))
          (acknowledgment (get* "Acknowledgment")))
     (for-each (lambda (x)
-                (save-file (file-name (string-append dir-name (car x)))
-                           (cdr x)))
+                (save-file
+                 (string-append (file-name identifier)
+                                "/"
+                                (car x))
+                 (cdr x)))
               `(("summary.rtf" . ,summary)
                 ("tissue.rtf" . ,tissue)
                 ("specifics.rtf" . ,specifics)