Fix thinko.

diff --git a/tests/runtime/test-regsexp.scm b/tests/runtime/test-regsexp.scm
index e1ed9409b056bae108c70320fb0286b3a460967b..473e280b0a42599f46469b53e7c2a5ba0440cea8 100644 (file)
--- a/tests/runtime/test-regsexp.scm
+++ b/tests/runtime/test-regsexp.scm
@@ -36,7 +36,7 @@ USA.
        (if (and (eq? expected 'PATTERN-ERROR)
                 (condition-of-type? result condition-type:compile-regsexp))
            #f
-           (signal-condition condition))
+           (signal-condition result))
        (assert-equal result
                      expected
                      'EXPRESSION `(match-string ',pattern ,string)))))