diff --git a/src/modules/Regexp/testsuite.in b/src/modules/Regexp/testsuite.in
index fce19aaef8749c53606f89fd6726b98f311e8025..fb94c64125c1ce983e007ef61d0649e673078fec 100644
--- a/src/modules/Regexp/testsuite.in
+++ b/src/modules/Regexp/testsuite.in
@@ -1,4 +1,4 @@
-// $Id: testsuite.in,v 1.5 1999/11/23 13:40:59 noring Exp $
+// $Id: testsuite.in,v 1.6 2000/09/10 21:27:48 mirar Exp $
 
 // - Here we try the Regexp module
 test_true([[objectp(Regexp("foo"))]])
@@ -43,3 +43,6 @@ test_equal([[ Regexp("k|br")->replace("abrakadabra", "
 test_equal([[ Regexp("k|br")->replace("abrakadabra",
               lambda(string s) { return "["+upper_case(s)+"]"; }) ]],
                                                       "a[BR]a[K]ada[BR]a")
+
+// test non-crash
+test_do([[Regexp("^((.*)[ ]|)(.*)[ ]")->split("abcdef")]])