diff --git a/bootfiles/18e/boot13.lisp b/bootfiles/18e/boot13.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..c503fec1398eb23158e39d9ad7437d7fd653d806
--- /dev/null
+++ b/bootfiles/18e/boot13.lisp
@@ -0,0 +1,9 @@
+;;;
+;;; Boot file for removing the "" nickname of the KEYWORD package.
+;;; To bootstrap, copy this file to target:bootstrap.lisp
+;;; using Pierre Mai's build scripts, and do a full build.
+;;;
+
+(rename-package "KEYWORD" "KEYWORD")
+
+;;; end of file.
diff --git a/code/reader.lisp b/code/reader.lisp
index 8e50de9029fa2a994ace4ca85228ee8f1e29c361..26cd23709b73d5df8dc322941f4d9c22f6d875cd 100644
--- a/code/reader.lisp
+++ b/code/reader.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/reader.lisp,v 1.34 2003/06/02 16:29:23 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.35 2003/06/14 12:21:39 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1098,7 +1098,11 @@
 	(t (go SYMBOL)))
       RETURN-SYMBOL
       (casify-read-buffer escapes)
-      (let ((found (if package (find-package package) *package*)))
+      (let ((found (if package
+		       (if (zerop (length package))
+			   *keyword-package*
+			   (find-package package))
+		       *package*)))
 	(unless found
 	  (error 'reader-package-error :stream stream
 		 :format-arguments (list package)
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index a5da76aa7719eb2e581aab852bee6ea9c55cb74a..0258e2e22ef8c0726b7f9fb319e5e8246c5b3b3f 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -116,6 +116,7 @@ New in this release:
      - ADD-METHOD returning its first argument, the generic function.
      - DEFCLASS redefining a class with the given name only if the
        name is the proper name of an existing class.
+     - KEYWORD package no longer having nickname "".
 
   * Numerous bugfixes:
      - NSET-EXCLUSIVE-OR returns the same results as SET-EXCLUSIVE-OR