--- src/sys/boot/ficl/float.c	2003/11/10 06:08:33	1.1
+++ src/sys/boot/ficl/float.c	2008/03/29 23:31:07	1.2
@@ -4,7 +4,7 @@
 ** ANS Forth FLOAT word-set written in C
 ** Author: Guy Carver & John Sadler (john_sadler@alum.mit.edu)
 ** Created: Apr 2001
-** $Id: float.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+** $Id: float.c,v 1.2 2008/03/29 23:31:07 swildner Exp $
 *******************************************************************/
 /*
 ** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)
@@ -42,7 +42,7 @@
 */
 
 /*
- * $FreeBSD: src/sys/boot/ficl/float.c,v 1.1 2002/04/09 17:45:11 dcs Exp $
+/* $FreeBSD: src/sys/boot/ficl/float.c,v 1.2 2007/03/23 22:26:01 jkim Exp $
  * $DragonFly$
  */
 
@@ -980,6 +980,8 @@ int ficlParseFloatNumber( FICL_VM *pVM,
     }
 
     PUSHFLOAT(accum);
+    if (pVM->state == COMPILE)
+        fliteralIm(pVM);
 
     return(1);
 }