Sanitize experiment data. HEAD master

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

1 files changed, 4 insertions, 3 deletions

diff --git a/examples/probesets-experiment-metadata.scm b/examples/probesets-experiment-metadata.scm
index b87af10..8706c3c 100755
--- a/examples/probesets-experiment-metadata.scm
+++ b/examples/probesets-experiment-metadata.scm
@@ -25,9 +25,10 @@
     (set rdf:type 'gnc:molecular_trait_metadata)
     (set dcat:distribution
          (string->symbol
-          (format #f "gnd:~a.json"
-                  (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
-                          PublishFreeze)))) )
+          (sanitize-rdf-string
+           (format #f "gnd:~a.json"
+                   (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
+                           PublishFreeze))))) )
     (set gnt:has_probeset (string->identifier "probeset" (field ProbeSet Name ProbeSetName)))
     (set dcat:isPartOf (string->identifier "dataset" (field ProbeSetFreeze Name ProbeSetFreezeName)
                                            #:separator "_"))