diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+### 0.9.4 [2023.10.13]
+* Require `singletons-base-3.3` and GHC 9.8.
+
 ### 0.9.3 [2023.03.12]
 * Require `singletons-base-3.2` and GHC 9.6.
 
diff --git a/eliminators.cabal b/eliminators.cabal
--- a/eliminators.cabal
+++ b/eliminators.cabal
@@ -1,5 +1,5 @@
 name:                eliminators
-version:             0.9.3
+version:             0.9.4
 synopsis:            Dependently typed elimination functions using singletons
 description:         This library provides eliminators for inductive data types,
                      leveraging the power of the @singletons@ library to allow
@@ -16,7 +16,7 @@
 build-type:          Simple
 extra-source-files:  CHANGELOG.md, README.md
 cabal-version:       >=1.10
-tested-with:         GHC == 9.6.1
+tested-with:         GHC == 9.8.1
 
 source-repository head
   type:                git
@@ -30,14 +30,14 @@
                        Data.Eliminator.TH
                        Data.Eliminator.TypeLits
                        Data.Eliminator.TypeNats
-  build-depends:       base             >= 4.18  && < 4.19
+  build-depends:       base             >= 4.19  && < 4.20
                      , extra            >= 1.4.2 && < 1.8
-                     , singletons-base  >= 3.2   && < 3.3
+                     , singletons-base  >= 3.3   && < 3.4
                      , singleton-nats   >= 0.4.2 && < 0.5
-                     , template-haskell >= 2.20  && < 2.21
-                     , text             >= 2.0.1 && < 2.1
-                     , th-abstraction   >= 0.4   && < 0.6
-                     , th-desugar       >= 1.15  && < 1.16
+                     , template-haskell >= 2.21  && < 2.22
+                     , text             >= 2.0.1 && < 2.2
+                     , th-abstraction   >= 0.4   && < 0.7
+                     , th-desugar       >= 1.16  && < 1.17
   hs-source-dirs:      src
   default-language:    GHC2021
   ghc-options:         -Wall -Wcompat -Wno-unticked-promoted-constructors -fenable-th-splice-warnings
@@ -58,10 +58,10 @@
                        PolyRecTypes
                        VecTypes
                        VecSpec
-  build-depends:       base            >= 4.18  && < 4.19
+  build-depends:       base            >= 4.19  && < 4.20
                      , eliminators
                      , hspec           >= 2     && < 3
-                     , singletons-base >= 3.2   && < 3.3
+                     , singletons-base >= 3.3   && < 3.4
                      , singleton-nats  >= 0.4.2 && < 0.5
   build-tool-depends:  hspec-discover:hspec-discover
   hs-source-dirs:      tests
diff --git a/src/Data/Eliminator/TH.hs b/src/Data/Eliminator/TH.hs
--- a/src/Data/Eliminator/TH.hs
+++ b/src/Data/Eliminator/TH.hs
@@ -726,13 +726,29 @@
 upcase :: String -> String
 upcase str
   | isHsLetter first
-  = toUpper first : tail str
+  = toUpper first : tailNameStr str
 
   | otherwise
   = str
   where
-    first = head str
+    first = headNameStr str
 
 -- is it a letter or underscore?
 isHsLetter :: Char -> Bool
 isHsLetter c = isLetter c || c == '_'
+
+-- Return the first character in a Name's string (i.e., nameBase).
+-- Precondition: the string is non-empty.
+headNameStr :: String -> Char
+headNameStr str =
+  case str of
+    (c:_) -> c
+    [] -> error "headNameStr: Expected non-empty string"
+
+-- Drop the first character in a Name's string (i.e., nameBase).
+-- Precondition: the string is non-empty.
+tailNameStr :: String -> String
+tailNameStr str =
+  case str of
+    (_:cs) -> cs
+    [] -> error "tailNameStr: Expected non-empty string"