diff --git a/code/pprint.lisp b/code/pprint.lisp
index 87e5df4aab1b2abde21aac878f6b93efd4f8d4e1..ef1ce23b9b4a1fa9acf07ea77069946e03a6e3e3 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.61 2006/01/23 22:00:07 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.62 2006/02/07 16:42:08 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1691,7 +1691,7 @@ When annotations are present, invoke them at the right positions."
     (pprint-indent :block 1 stream)
     (pprint-newline :mandatory stream)
     ;; Output slots.  We try to output keyword and value on one line together
-    (funcall (formatter "~:<~^~@{~:<~^~W~^ ~:I~@{~W ~W~^~@:_~}~:>~^~@:_~}~:>")
+    (funcall (formatter "~:<~^~@{~:<~^~W~^ ~:I~@{~W~^ ~W~^~@:_~}~:>~^~@:_~}~:>")
 		  stream (pprint-pop))
     ;; Output options
     (loop