diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 274d7cfc7..61f4bd107 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-31  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* tests/numbers.test:  Made some of the patterns better readable.
+
 2001-08-25  Thien-Thi Nguyen  <ttn@revel.glug.org>
 
 	* tests/srfi-19.test (test-time-comparision,
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 68f2b7477..f7863bf65 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -857,9 +857,9 @@
 
   (pass-if "non number strings"
     (for-each (lambda (x) (if (string->number x) (throw 'fail)))
-	      '("" "q" "1q" "6+7iq" "8+9q" "10+11" "13+" "18@19 " "20@q" "23@"
+	      '("" "q" "1q" "6+7iq" "8+9q" "10+11" "13+" "18@19q" "20@q" "23@"
 		"+25iq" "26i" "-q" "-iq" "i" "5#.0" "8/" "10#11" ".#" "."
-		"#o.2" "3.4q" "15.16e17q" "18.19e+q" ".a" ".17#18" "10q" "#b2"
+		"#o.2" "3.4q" "15.16e17q" "18.19e+q" ".q" ".17#18" "10q" "#b2"
 		"#b3" "#b4" "#b5" "#b6" "#b7" "#b8" "#b9" "#ba" "#bb" "#bc"
 		"#bd" "#be" "#bf" "#q" "#b#b1" "#o#o1" "#d#d1" "#x#x1" "#e#e1"
 		"#i#i1" "12@12+0i"))