From b32bf3e486c2d819db8d7af770ab098137173be8 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 17 Nov 2023 11:24:52 +0300
Subject: Revert "Make Phenotypy InbredSet classification consistent."

This reverts commit 092b9b4967133fc5a04d9fbf2255f4ce07dedb8b.
---
 examples/phenotype.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3