--- gforth/float.fs	2009/09/25 18:52:29	1.55
+++ gforth/float.fs	2010/03/22 17:08:06	1.57
@@ -1,6 +1,6 @@
 \ High level floating point                            14jan94py
 
-\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -233,7 +233,7 @@ set-current
 	fnegate f~rel
     THEN ;
 
--0e fp@ c@ $80 = [if] 0 [else] 7 [endif] constant fsign-offset
+-0e 8 0 [do] fp@ [i] + c@ $80 = [if] [i] constant fsign-offset [then] [loop]
 
 : fcopysign ( r1 r2 -- r3 ) \ gforth
 \G r3 takes its absolute value from r1 and its sign from r2