diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index b153a6238f334a9a9b53f89c2348fb8bf448f53a..a9d44c2feff2b41665e080f26c386537fb27fb06 100644
--- a/ansi-tests/universe.lsp
+++ b/ansi-tests/universe.lsp
@@ -136,6 +136,8 @@
 
 (defvar *reals* (append *integers* *floats* *ratios*))
 
+(defvar *rationals* (append *integers* *ratios*))
+
 (defun try-to-read-chars (&rest namelist)
   (loop
     for name in namelist append