diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## [0.1.0.2] - 2022-10-18
+
+- Fix `mkNonEmptyTextWithTruncate` to perform truncation after character stripping.
+
 ## [0.1.0.1] - 2022-09-29
 
 - Fix building on GHC 8.10.7, and add it to CI.
diff --git a/src/Data/StringVariants/NonEmptyText.hs b/src/Data/StringVariants/NonEmptyText.hs
--- a/src/Data/StringVariants/NonEmptyText.hs
+++ b/src/Data/StringVariants/NonEmptyText.hs
@@ -12,6 +12,7 @@
 
     -- * Construction
     mkNonEmptyText,
+    mkNonEmptyTextWithTruncate,
     unsafeMkNonEmptyText,
     nonEmptyTextToText,
     compileNonEmptyText,
diff --git a/src/Data/StringVariants/NonEmptyText/Internal.hs b/src/Data/StringVariants/NonEmptyText/Internal.hs
--- a/src/Data/StringVariants/NonEmptyText/Internal.hs
+++ b/src/Data/StringVariants/NonEmptyText/Internal.hs
@@ -81,6 +81,13 @@
   where
     stripped = T.filter (/= '\NUL') $ T.strip t
 
+mkNonEmptyTextWithTruncate :: forall n. KnownNat n => Text -> Maybe (NonEmptyText n)
+mkNonEmptyTextWithTruncate t
+  | textIsWhitespace stripped = Nothing
+  | otherwise = Just (NonEmptyText $ T.stripEnd $ T.take (fromIntegral $ natVal (Proxy @n)) stripped)
+  where
+    stripped = T.filter (/= '\NUL') $ T.stripStart t
+
 -- | Make a NonEmptyText when you can manually verify the length
 unsafeMkNonEmptyText :: forall n. KnownNat n => Text -> NonEmptyText n
 unsafeMkNonEmptyText = NonEmptyText
diff --git a/src/Data/StringVariants/NullableNonEmptyText.hs b/src/Data/StringVariants/NullableNonEmptyText.hs
--- a/src/Data/StringVariants/NullableNonEmptyText.hs
+++ b/src/Data/StringVariants/NullableNonEmptyText.hs
@@ -63,9 +63,6 @@
   | textIsTooLong t (fromIntegral $ natVal (Proxy @n)) = Nothing -- we can't store text that is too long
   | otherwise = Just $ NullableNonEmptyText $ mkNonEmptyText t
 
-mkNonEmptyTextWithTruncate :: forall n. KnownNat n => Text -> Maybe (NonEmptyText n)
-mkNonEmptyTextWithTruncate = mkNonEmptyText . T.take (fromInteger (natVal (Proxy @n)))
-
 nullNonEmptyText :: NullableNonEmptyText n
 nullNonEmptyText = NullableNonEmptyText Nothing
 
diff --git a/string-variants.cabal b/string-variants.cabal
--- a/string-variants.cabal
+++ b/string-variants.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           string-variants
-version:        0.1.0.1
+version:        0.1.0.2
 synopsis:       Constrained text newtypes
 description:    See README at <https://github.com/MercuryTechnologies/string-variants#readme>.
 category:       Data