diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 77ae45748bac825985bfdab295b79c8c4f29a014..8b9b9fe1326a4eac61f4283f777a960ce2b20e89 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.47 1992/04/15 01:02:28 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.48 1992/05/07 08:49:31 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -644,8 +644,9 @@
 ;;;; In the "Hash Tables" chapter:
 
 (defknown make-hash-table
-  (&key (test callable) (size index) (rehash-size (or (integer (0)) (float (1.0))))
-	(rehash-threshold (or (integer (0)) (float (0.0) (1.0)))))
+  (&key (test callable) (size index)
+	(rehash-size (or (integer 1) (float (1.0))))
+	(rehash-threshold (real 0 1)))
   hash-table
   (flushable unsafe))
 (defknown hash-table-p (t) boolean (movable foldable flushable))
@@ -655,8 +656,13 @@
 (defknown remhash (t hash-table) boolean ())
 (defknown maphash (callable hash-table) null (foldable flushable call))
 (defknown clrhash (hash-table) hash-table ())
-(defknown hash-table-count (hash-table) fixnum (foldable flushable))
-
+(defknown hash-table-count (hash-table) index (foldable flushable))
+(defknown hash-table-rehash-size (hash-table) (or (integer 1) (float (1.0)))
+  (foldable flushable))
+(defknown hash-table-rehash-threshold (hash-table) (real 0 1)
+  (foldable flushable))
+(defknown hash-table-size (hash-table) index (foldable flushable))
+(defknown hash-table-test (hash-table) symbol (foldable flushable))
 (deftype non-negative-fixnum () `(integer 0 ,most-positive-fixnum))
 (defknown sxhash (t) non-negative-fixnum (foldable flushable))