--- gforth/fi2c.fs	2007/12/31 18:40:24	1.22
+++ gforth/fi2c.fs	2010/06/10 09:40:08	1.24
@@ -113,7 +113,7 @@ Variable au
 
 : search-magic ( fd -- )  >r
     BEGIN  magicbuf 8 r@ read-file throw  8 =  WHILE
-	magicbuf s" Gforth3" tuck str=  UNTIL
+	magicbuf s" Gforth4" tuck str=  UNTIL
     ELSE  true abort" No magic found"  THEN
     1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars !
     1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell !
@@ -169,7 +169,7 @@ Variable bitmap-chars
 			." INST_ADDR(" type ." )"
 		    THEN
 		ELSE
-		    dup IF  ." ((void*)image)+"  THEN  .08x
+		    dup IF  ." ((void*)image)+"  $10 -  THEN  .08x
 		THEN
 	    ELSE
 		." (void*)" .08x