diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index ae4ff1628..46083288c 100644
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -25,6 +25,7 @@
  exception:bad-variable
  exception:missing-expression
  exception:out-of-range exception:unbound-var
+ exception:used-before-defined
  exception:wrong-num-args exception:wrong-type-arg
  exception:numerical-overflow
 
@@ -243,6 +244,8 @@
   (cons 'out-of-range "^Argument .*out of range"))
 (define exception:unbound-var
   (cons 'unbound-variable "^Unbound variable"))
+(define exception:used-before-defined
+  (cons 'unbound-variable "^Variable used before given a value"))
 (define exception:wrong-num-args
   (cons 'wrong-number-of-args "^Wrong number of arguments"))
 (define exception:wrong-type-arg
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 9b3432af1..ae02ee842 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -430,7 +430,7 @@
   (with-test-prefix "bindings"
 
     (pass-if-exception "initial bindings are undefined"
-      exception:unbound-var
+      exception:used-before-defined
       (let ((x 1))
 	(letrec ((x 1) (y x)) y))))