diff options
| -rwxr-xr-x | examples/phenotype.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/phenotype.scm b/examples/phenotype.scm index 11211a2..4378809 100755 --- a/examples/phenotype.scm +++ b/examples/phenotype.scm @@ -54,7 +54,9 @@ (set rdf:type 'gnc:Phenotype) (set xkos:classifiedUnder (string->identifier - "set" (field InbredSet Name InbredSetName))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)) ;; This is the trait's name (set rdfs:label (let ((trait-id (field PublishXRef Id))) |