[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv8123

Modified Files:
	image.lisp 
Log Message:
Minor tweak.


--- /project/movitz/cvsroot/movitz/image.lisp	2007/02/18 14:53:07	1.108
+++ /project/movitz/cvsroot/movitz/image.lisp	2007/02/19 21:57:49	1.109
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.108 2007/02/18 14:53:07 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.109 2007/02/19 21:57:49 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -779,7 +779,7 @@
 			:start-address start-address
 			:movitz-features '(:movitz)
 			:function-code-sizes
-			(if (boundp '*image*)
+			(if (and (boundp '*image*) *image*)
 			    (copy-hash-table (function-code-sizes *image*))
 			  (make-hash-table :test #'equal))
 			init-args)))