diff --git a/ChangeLog.n b/ChangeLog.n
index ff837d543204203d0750249e8f02c3022f3a1e26..4d0acf7a6b9cea59d555a6734c6cea685d9bc0f9 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -10,6 +10,16 @@ Tests for new features:	<`no new features', `no tests for new features', or
 <standard changelog date stamp>
 	* <changes go here...>
 
+*******************************************************************************
+2.2.1.5
+
+Documentation changes:	none
+Tests for new features:	no new features
+
+Tue Feb 03 09:17:26 1998    <layer@HOBART>
+
+	* ChangeLog: use generate-application to build clim image
+
 *******************************************************************************
 2.2.1.4
 	
diff --git a/Makefile.generic b/Makefile.generic
index 535b7ef1029b97c636b767f526f2b95fd22ac041..804fbcb0e55c527b1f2948dfbb0193ccb9d7e4a3 100644
--- a/Makefile.generic
+++ b/Makefile.generic
@@ -1,4 +1,4 @@
-# $Header: /repo/cvs.copy/clim2/Makefile.generic,v 1.43 1997/10/20 23:10:57 layer Exp $
+# $Header: /repo/cvs.copy/clim2/Makefile.generic,v 1.44 1998/02/04 22:22:19 layer Exp $
 #
 #  Makefile.generic for CLIM 2.0
 #
@@ -122,20 +122,32 @@ $(CLIM): FORCE $(PRODUCT-OBJS) $(ICS-PRODUCT-OBJS)
 	ALLEGRO_CL_HOME=$(CL_HOME) ; export ALLEGRO_CL_HOME ; \
 	$(ECHO) " \
 	(progn \
-	  (push (merge-pathnames (current-directory) \"hosts.cl\") \
-	    (logical-pathname-translations-database-pathnames)) \
-	  (setq sys::*libtk-pathname* \"$(TKLIB)\") \
-	  (setq sys::*libxt-pathname* \"$(XTLIB)\") \
-	  (setq sys::*libx11-pathname* \"$(XLIB)\") \
-	  (setq sys::*libwnn-pathname* \"$(WNNLIB)\") \
-	  (load \"misc/dev-load-1.lisp\") \
-	  (load-it '$(SYSTEM)) \
-	  (setq sys::*clim-dump-name* \"$(TMP)/clim.temp_`whoami`\") \
-	  (load \"misc/dump.lisp\"))" \
-	| $(CL) $(CLOPTS))
-	$(MV) $(TMP)/clim.temp_`whoami` $(CLIM)
-	ls -lLt $(CLIM) >> Clim-sizes.n
-	ls -lLt $(CLIM)
+	 (generate-application \
+	   \"$(CLIM)\" \"./\" \
+	   nil \
+	   :pre-load-form \
+	   (quote \
+	     (progn \
+	       (push (merge-pathnames (current-directory) \"hosts.cl\") \
+		     (logical-pathname-translations-database-pathnames)) \
+	       (setq sys::*libtk-pathname* \"$(TKLIB)\") \
+	       (setq sys::*libxt-pathname* \"$(XTLIB)\") \
+	       (setq sys::*libx11-pathname* \"$(XLIB)\") \
+	       (setq sys::*libwnn-pathname* \"$(WNNLIB)\") \
+	       (load \"misc/dev-load-1.lisp\") \
+	       (load-it '$(SYSTEM)))) \
+	   :image-only t \
+	   :purify nil \
+	   :shlib-warning nil \
+	   :libfasl-warning nil \
+	   :record-source-file-info t :load-source-file-info t \
+	   :record-xref-info t :load-xref-info t \
+	   :discard-local-name-info t \
+	   :discard-source-file-info t \
+	   :discard-xref-info t) \
+	 (exit 0))" | $(CL) $(CLOPTS))
+	@ls -lLt $(CLIM) >> Clim-sizes.n
+	@ls -lLt $(CLIM)
 	@echo $(SYSTEM) built!!!!	
 
 # Training
diff --git a/utils/packages.lisp b/utils/packages.lisp
index a6e6542921fbb0f7ea311f9d8b675ef03fd72d08..49688c4626feb20b800f11650c9429e0f3782b01 100644
--- a/utils/packages.lisp
+++ b/utils/packages.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CL-USER; Base: 10; Lowercase: Yes -*-
 
-;; $Header: /repo/cvs.copy/clim2/utils/packages.lisp,v 1.76 1997/12/23 22:44:54 duane Exp $
+;; $Header: /repo/cvs.copy/clim2/utils/packages.lisp,v 1.77 1998/02/04 22:22:20 layer Exp $
 
 (in-package :common-lisp-user)
 
@@ -3301,7 +3301,7 @@
 (cl:defvar *clim-major-version* 2)
 (cl:defvar *clim-minor-version* 2)
 (cl:defvar *clim-generation-version* 1)
-(cl:defvar *clim-build-version* 4)
+(cl:defvar *clim-build-version* 5)
 
 (cl:defparameter *clim-version*
     (cl:format () "CLIM ~d.~d.~d.~d"
@@ -3309,4 +3309,4 @@
 	       *clim-generation-version* *clim-build-version*))
 
 #-aclpc
-(si::rcsnote *clim-version* "$Id: packages.lisp,v 1.76 1997/12/23 22:44:54 duane Exp $")
+(si::rcsnote *clim-version* "$Id: packages.lisp,v 1.77 1998/02/04 22:22:20 layer Exp $")