diff --git a/ansi-tests/symbol-name.lsp b/ansi-tests/symbol-name.lsp
index f2e962e37d733c1c89898d031630288bae66c840..3c07259f182a4527a138ab37ad24131385b2b3f8 100644
--- a/ansi-tests/symbol-name.lsp
+++ b/ansi-tests/symbol-name.lsp
@@ -33,6 +33,8 @@
   (symbol-name :|abcdefg|)
   "abcdefg")
 
+;;; Error tests
+
 (deftest symbol-name.error.1
   (signals-error (symbol-name) program-error)
   t)
@@ -41,3 +43,11 @@
   (signals-error (symbol-name 'a 'b) program-error)
   t)
 
+(deftest symbol-name.error.3
+  (loop for x in *mini-universe*
+	for form = `(signals-error (symbol-name ',x) type-error)
+	unless (or (symbolp x) (eval form))
+	collect x)
+  nil)
+
+