diff --git a/testsuite/strings-test.scm b/testsuite/strings-test.scm
index ef655e1..c12e528 100644
--- a/testsuite/strings-test.scm
+++ b/testsuite/strings-test.scm
@@ -2871,8 +2871,8 @@
   (test-equal "c😼b😂a" (reverse-list->string '(#\a #\😂 #\b #\😼 #\c)))
 
   (test-equal "y😂a😼xy" (xsubstring "a😼xy😂" 3 9))
-  (test-equal "y😂a😼" (xsubstring "a😼xy😂" -2 2))
-))
+  (test-equal "y😂a😼" (xsubstring "a😼xy😂" -2 2)))
 ;; end section with UTF-8 literals
+ (else))
 
 (test-end)