diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp
index 41bb7b4b937082b68d4d80369fc04e60aa28a5c5..0f1fb6c41ff7ef9f1d21b0304b7d7a47d3df7064 100644
--- a/code/byte-interp.lisp
+++ b/code/byte-interp.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/byte-interp.lisp,v 1.42 2003/08/27 14:38:35 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.43 2003/08/27 15:35:18 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -189,9 +189,11 @@
 
 (defvar *eval-stack* (make-array 100)
   "This is the interpreter's evaluation stack.")
+(declaim (type simple-vector *eval-stack*))
 
 (defvar *eval-stack-top* 0
   "This is the next free element of the interpreter's evaluation stack.")
+(declaim (type index *eval-stack-top*))
 
 (defmacro current-stack-pointer () '*eval-stack-top*)
 
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index ee80907a5a52ee35bbb3bc537ce987904bb2c70b..a5aad49e6dcf60060a726d463244e56095b40fb6 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -70,7 +70,7 @@ New in this release:
        index. 
      - Lisp binary will also look at the PATH envvar to find out it's
        own location which is used to find other needed files.
-     - Byte-interpreted code being executed ca. 20% faster.
+     - Byte-compiled code being executed ca. 25% faster.
  
   * Numerous ANSI compliance fixes:
      - Many bugs in CMUCL's type system detected by Paul Dietz'