diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 6e58b99e5..c1b395a9a 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-30  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* tests/strings.test:  string=? is fixed.
+
 2000-10-13  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* tests/list.test:  Removed references to sloppy-mem(q|v|ber)
diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index 9305128f8..ffd3fab35 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -21,7 +21,7 @@
 (use-modules (test-suite lib))
 
 
-(expect-fail "string=? does not accept symbols"
+(pass-if "string=? does not accept symbols"
   (catch 'wrong-type-arg
     (lambda ()
       (string=? 'a 'b)