diff --git a/code/format.lisp b/code/format.lisp
index 3c30db067dc720e51c5d3c3edaf9bc2f8e2e71ce..15f7fe1cc5ed43a895d854f46d801a230781d15f 100644
--- a/code/format.lisp
+++ b/code/format.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.23 1992/02/12 16:10:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.24 1992/05/15 17:51:24 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -62,11 +62,11 @@
 (defvar *default-format-error-offset* nil)
 
 (define-condition format-error (error)
-  ((complaint (required-argument))
-   (arguments nil)
-   (control-string *default-format-error-control-string*)
-   (offset *default-format-error-offset*)
-   (print-banner t))
+  ((complaint)
+   (arguments :init-form nil)
+   (control-string :init-form *default-format-error-control-string*)
+   (offset :init-form *default-format-error-offset*)
+   (print-banner :init-form t))
   (:report %print-format-error))
 
 
diff --git a/code/pathname.lisp b/code/pathname.lisp
index ce8f9a20f1a3964ae419e53aafd70d1decb14876..6f7b42e31b4837b7db814a8119f4ad07c2e848ac 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.9 1992/03/10 15:06:59 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.10 1992/05/15 17:51:47 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -210,10 +210,10 @@
 	  (namestring-parse-error-offset condition)))
 
 (define-condition namestring-parse-error (error)
-  ((complaint (required-argument))
-   (arguments nil)
-   (namestring (required-argument))
-   (offset (required-argument)))
+  ((complaint :init-form (required-argument))
+   (arguments :init-form nil)
+   (namestring :init-form (required-argument))
+   (offset :init-form (required-argument)))
   (:report %print-namestring-parse-error))
 
 (defun %parse-namestring (namestr start end host junk-allowed)
diff --git a/code/reader.lisp b/code/reader.lisp
index 3f78fb19ebc5bd0ad779c1d9144de2df9141a3e1..514bc068a4bbd6d0c4ccf1bedd2ee045bcf71ebb 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.14 1992/04/17 16:00:48 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.15 1992/05/15 17:51:49 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -41,7 +41,7 @@
 
 (define-condition reader-error (stream-error)
   (format-control
-   (format-arguments ()))
+   (format-arguments :init-form ()))
   (:report
    (lambda (condition stream)
      (let ((error-stream (stream-error-stream condition)))
@@ -592,7 +592,7 @@
 		 (file-position stream))
 	   (values))
 	  (t
-	   (%reader-error stream "Unmatched close parenthesis.")))))
+	   (%reader-error stream "Unmatched close parenthesis."))))
 
 ;;; INTERNAL-READ-EXTENDED-TOKEN  --  Internal
 ;;;
diff --git a/code/wire.lisp b/code/wire.lisp
index b0bb42bf45c63ad6dde222d93e9899714e44ba26..d7daa7512f78e24d0fab05007e9e62c13d325300 100644
--- a/code/wire.lisp
+++ b/code/wire.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.8 1992/02/18 16:56:49 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/wire.lisp,v 1.9 1992/05/15 17:51:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -115,8 +115,8 @@
 		     (wire-eof-wire condition)))))
 
 (define-condition wire-io-error (wire-error)
-  ((when "using")
-   (msg "Failed."))
+  ((when :init-form "using")
+   (msg :init-form "Failed."))
   (:report (lambda (condition stream)
 	     (format stream "Error ~A ~A: ~A."
 		     (wire-io-error-when condition)