1 files changed, 1 insertions, 8 deletions
diff --git a/examples/genotype.scm b/examples/genotype.scm
index 257a3fa..0b0cd8e 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -46,14 +46,7 @@
    (gnt:chr_num rdfs:domain gnc:genotype)
    (gnt:chr_num skos:definition "The chromosome number for this resource"))
   (triples
-      (string->identifier
-       ""
-       (regexp-substitute/global
-        #f "[^A-Za-z0-9:]"
-        (field Geno Name)
-        'pre "_" 'post)
-       #:separator "_"
-       #:proc (lambda (x) x))
+      (string->identifier "" (field Geno Name))
     (set rdf:type 'gnc:genotype)
     (set rdfs:label (sanitize-rdf-string (field Geno Name)))
     (set gnt:chr (field Geno Chr))