--- a/tests/automated/lisp-tests.el	Sun Jan 18 12:41:58 2009 +0000
+++ b/tests/automated/lisp-tests.el	Sun Jan 18 12:51:25 2009 +0000
@@ -1327,3 +1327,9 @@
 					printed-with-uninterned)))
   (Assert (null (string-match awkward-regexp printed-with-uninterned
 			      (1+ first-match-start)))))
+
+(let ((char-table-with-string #s(char-table data (?\x00 "text")))
+      (char-table-with-symbol #s(char-table data (?\x00 text))))
+  (Assert (not (string-equal char-table-with-string char-table-with-symbol))
+          "Check that char table elements are quoted correctly when printing"))
+