Index: /trunk/source/lib/pprint.lisp
===================================================================
--- /trunk/source/lib/pprint.lisp	(revision 15251)
+++ /trunk/source/lib/pprint.lisp	(revision 15252)
@@ -2034,10 +2034,10 @@
         ((not list-kludge))
         ((null object)(return-from write-not-pretty nil))
-        ((not (consp object))
+        ((and (not (consp object)) (not circle))
          (stream-write-entire-string stream " . "))
         ((eq circle :first)
-         (stream-write-char stream #\()        
+         (when (consp object) (stream-write-char stream #\())
          (write-a-frob object stream level list-kludge)
-         (stream-write-char stream #\))
+         (when (consp object) (stream-write-char stream #\)))
          (return-from write-not-pretty nil))                     
         (t (stream-write-char stream #\space)))