diff --git a/sx/sx/specs-explorer.sx b/sx/sx/specs-explorer.sx
index 60c91c0..a1214a5 100644
--- a/sx/sx/specs-explorer.sx
+++ b/sx/sx/specs-explorer.sx
@@ -75,7 +75,7 @@
 (defcomp ~spec-explorer-section (&key section)
   (div :class "mb-8"
     (h2 :class "text-lg font-semibold text-stone-700 border-b border-stone-200 pb-1 mb-3"
-      :id (replace (lower-case (get section "title")) " " "-")
+      :id (replace (lower (get section "title")) " " "-")
       (get section "title"))
     (when (get section "comment")
       (p :class "text-sm text-stone-500 mb-3" (get section "comment")))