diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 123f1511b..d921a4687 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-18  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
+
+	* boot-9.scm: Added extended read syntax for byte vectors #y(...)
+	and short vectors #h(...).
+
 1998-10-14  Jim Blandy  <jimb@zwingli.cygnus.com>
 
 	* calling.scm (excursion-function-syntax): Use a sequence of
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 5dc81a917..5d1cfbabd 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1050,8 +1050,8 @@
 	(for-each (lambda (char template)
 		    (read-hash-extend char
 				      (make-array-proc template)))
-		  '(#\b #\a #\u #\e #\s #\i #\c)
-		  '(#t  #\a 1   -1  1.0 1/3 0+i)))
+		  '(#\b #\a #\u #\e #\s #\i #\c #\y   #\h)
+		  '(#t  #\a 1   -1  1.0 1/3 0+i #\nul s)))
       (let ((array-proc (lambda (c port)
 			  (read:array c port))))
 	(for-each (lambda (char) (read-hash-extend char array-proc))