diff --git a/exercises/practice/roman-numerals/.meta/tests.toml b/exercises/practice/roman-numerals/.meta/tests.toml
index b74f59c2..b1e210dd 100644
--- a/exercises/practice/roman-numerals/.meta/tests.toml
+++ b/exercises/practice/roman-numerals/.meta/tests.toml
@@ -84,6 +84,9 @@ description = "1666 is MDCLXVI"
 [3bc4b41c-c2e6-49d9-9142-420691504336]
 description = "3001 is MMMI"
 
+[2f89cad7-73f6-4d1b-857b-0ef531f68b7e]
+description = "3888 is MMMDCCCLXXXVIII"
+
 [4e18e96b-5fbb-43df-a91b-9cb511fe0856]
 description = "3999 is MMMCMXCIX"
 
diff --git a/exercises/practice/roman-numerals/roman-numerals-test.lisp b/exercises/practice/roman-numerals/roman-numerals-test.lisp
index 0bcde1de..0a240620 100644
--- a/exercises/practice/roman-numerals/roman-numerals-test.lisp
+++ b/exercises/practice/roman-numerals/roman-numerals-test.lisp
@@ -90,10 +90,12 @@
 (test test-3001
   (is (string= "MMMI" (roman-numerals:romanize 3001))))
 
+(test test-3888
+  (is (string= "MMMDCCCLXXXVIII" (roman-numerals:romanize 3888))))
+
 (test test-3999
   (is (string= "MMMCMXCIX" (roman-numerals:romanize 3999))))
 
 (defun run-tests (&optional (test-or-suite 'roman-numerals-suite))
   "Provides human readable results of test run. Default to entire suite."
   (run! test-or-suite))
-