diff --git a/test-suite/tests/srfi-31.test b/test-suite/tests/srfi-31.test
index 995fcd630..235ec1bd7 100644
--- a/test-suite/tests/srfi-31.test
+++ b/test-suite/tests/srfi-31.test
@@ -17,10 +17,15 @@
 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;; Boston, MA 02111-1307 USA
 
-(use-modules (srfi srfi-31))
+(define-module (test-suite test-srfi-31)
+  #:use-module (test-suite lib)
+  #:use-module (srfi srfi-31))
 
 (with-test-prefix "rec special form"
 
+  (pass-if-exception "bogus variable" '(misc-error . ".*")
+    (rec #:foo))
+
   (pass-if "rec expressions"
     (let ((ones-list (rec ones (cons 1 (delay ones)))))
       (and (= 1 (car ones-list))