diff --git a/unicodetools/src/main/resources/org/unicode/text/UCD/UnicodeInvariantTest.txt b/unicodetools/src/main/resources/org/unicode/text/UCD/UnicodeInvariantTest.txt
index 8cb202e683..e57a1f382e 100644
--- a/unicodetools/src/main/resources/org/unicode/text/UCD/UnicodeInvariantTest.txt
+++ b/unicodetools/src/main/resources/org/unicode/text/UCD/UnicodeInvariantTest.txt
@@ -532,6 +532,12 @@ Show [\u20b9]
 Let $nonAlphabeticBindus = []
 [\p{InSc=Bindu} - $nonAlphabeticBindus - \p{Alphabetic}] = [] 
 
+# Nuktas should probably be diacritic, but as of 15.1 this is only the case of
+# those that have NUKTA in their name.
+# See https://github.com/unicode-org/properties/issues/195#issuecomment-1804962555.
+Let $nonDiacriticNuktas = [\u1BE6\U00010A38\U00010A39\U00010A3A\U0001133B]
+[\p{InSc=Nukta} - \p{Diacritic}] = $nonDiacriticNuktas
+
 ##########################
 # LineBreak property
 ##########################