diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index b0fea8962..18b9582b8 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-26  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* tests/strings.test:  Added a test to help remember that string=?
+	and friends need fixing.
+
 2000-09-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* tests/environments.test:  For tests that rely on garbage
diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index e439b95a1..9305128f8 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -20,6 +20,15 @@
 
 (use-modules (test-suite lib))
 
+
+(expect-fail "string=? does not accept symbols"
+  (catch 'wrong-type-arg
+    (lambda ()
+      (string=? 'a 'b)
+      #f)
+    (lambda args
+      #t)))
+
 (pass-if "string<? respects string length"
 	 (not (string<? "foo\0" "foo")))
 (pass-if "string-ci<? respects string length"