diff --git a/ansi-tests/pprint-dispatch.lsp b/ansi-tests/pprint-dispatch.lsp
index cc71a21c17cd480d602bfa1bd01c5d304cf93a26..e24d25d4bf295c1409a053e8484f8a15b1329000 100644
--- a/ansi-tests/pprint-dispatch.lsp
+++ b/ansi-tests/pprint-dispatch.lsp
@@ -6,7 +6,7 @@
 (in-package :cl-test)
 
 (deftest pprint-dispatch.1
-  (loop for x in *universe*
+  (loop for x in (append *universe* *cl-symbols*)
 	for vals = (multiple-value-list (pprint-dispatch x))
 	for vals2 = (multiple-value-list (pprint-dispatch
 					  x
@@ -27,7 +27,7 @@
 		 (not (cadr vals2)))))
 	collect (list x vals vals2))
   nil)
-
+#|
 (deftest pprint-dispatch.2
   (loop for sym in *cl-symbols*
 	for x = (list sym nil nil)
@@ -51,6 +51,7 @@
 		 (not (cadr vals2)))))
 	collect (list x vals vals2))
   nil)
+|#
 
 (deftest pprint-dispatch.3
   (my-with-standard-io-syntax
@@ -71,7 +72,7 @@
        
 (deftest pprint-dispatch.4
   (my-with-standard-io-syntax
-   (loop for v1 in (delete-if-not #'realp *universe*)
+   (loop for v1 in (remove-if-not #'realp *universe*)
 	 unless
 	 (equal
 	  (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil))
@@ -93,7 +94,7 @@
   
 (deftest pprint-dispatch.5
   (my-with-standard-io-syntax
-   (loop for v1 in (delete-if-not #'realp *universe*)
+   (loop for v1 in (remove-if-not #'realp *universe*)
 	 unless
 	 (equal
 	  (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil))