diff --git a/bootfiles/19c/boot-2006-06-3.lisp b/bootfiles/19c/boot-2006-06-3.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..24fbe15e5528e884024e1466d05dfb733f7bff1d
--- /dev/null
+++ b/bootfiles/19c/boot-2006-06-3.lisp
@@ -0,0 +1,7 @@
+;; Get rid of LISP::SOCKET-ERROR.  It's really EXT:SOCKET-ERROR.
+(in-package "LISP")
+
+(eval-when (compile load eval)
+(without-package-locks
+  (unintern 'socket-error))
+)
diff --git a/code/exports.lisp b/code/exports.lisp
index 11dc88423302004ee3b03386b944e1c26f272957..002d721b10cfce6f5bffded3559d02e4d709ba7d 100644
--- a/code/exports.lisp
+++ b/code/exports.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/exports.lisp,v 1.252 2006/06/30 18:41:22 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.253 2006/07/05 16:58:41 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1327,7 +1327,7 @@
              "SET-SYMBOL-FUNCTION-CAREFULLY" "SHORT-FLOAT-NEGATIVE-INFINITY"
              "SHORT-FLOAT-POSITIVE-INFINITY" "SHORT-FLOATP"
              "SINGLE-FLOAT-NEGATIVE-INFINITY" "SINGLE-FLOAT-POSITIVE-INFINITY"
-             "SINGLE-FLOATP" "START-BLOCK" "STREAM-COMMAND"
+             "SINGLE-FLOATP" "SOCKET-ERROR" "START-BLOCK" "STREAM-COMMAND"
              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
 	     "INSTANCEP" "SYMBOLICATE" "TRANSLATE-CHARACTER"
              "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-CHARACTER"