--- gforth/float.fs	2009/05/24 17:36:36	1.54
+++ gforth/float.fs	2009/12/31 15:32:35	1.56
@@ -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.
 
@@ -238,8 +238,8 @@ set-current
 : fcopysign ( r1 r2 -- r3 ) \ gforth
 \G r3 takes its absolute value from r1 and its sign from r2
     \ !! implementation relies on IEEE DP format
-    fp@ dup fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign )
-    float + dup c@ $7f and r> or swap c!
+    fp@ fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign )
+    float+ dup c@ $7f and r> or swap c!
     fdrop ;
 
 \ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com>