diff --git a/hemlock/completion.lisp b/hemlock/completion.lisp
index 2def53c0d328966ec8af5be7f46f356343113769..cd2b10f96188e2eecd83ad5829c71143ab23532b 100644
--- a/hemlock/completion.lisp
+++ b/hemlock/completion.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/completion.lisp,v 1.3 1991/02/08 16:33:26 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/completion.lisp,v 1.4 1991/05/16 17:40:58 mbb Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -30,7 +30,7 @@
 
 (defconstant completion-table-size 991)
 
-(defvar *completions* (make-array completion-table-size))
+(defvar *completions* (make-array completion-table-size :initial-element nil))
 
 (defhvar "Completion Bucket Size"
   "This limits the number of completions saved for a particular combination of