diff --git a/lisp/lisp.c b/lisp/lisp.c
index be82748421cedd8e81920ebe7102d0d625cd2e0c..d01fc6f7cd48aef5141d17f114882f61aca92fb2 100644
--- a/lisp/lisp.c
+++ b/lisp/lisp.c
@@ -1,7 +1,7 @@
 /*
  * main() entry point for a stand alone lisp image.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.28 2003/01/29 19:47:49 toy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.29 2003/02/18 15:48:29 gerd Exp $
  *
  */
 
@@ -162,6 +162,7 @@ default_cmucllib(char* argv0)
 	/* Create the colon separated list of directories */
 	
         defpath = malloc(total_len + 1);
+	*defpath = '\0';
 
         ptr = cmucllib_search_list;
         while (*ptr != NULL) {