--- gforth/Attic/main.fs	1995/11/07 18:06:52	1.19
+++ gforth/Attic/main.fs	1995/12/11 13:15:20	1.20
@@ -76,13 +76,13 @@ LOCK
 cr cr
 cell bigendian
 [IF]
-   dup 2 = [IF]   save-cross kernl16b.fi+  [THEN]
-   dup 4 = [IF]   save-cross kernl32b.fi+  [THEN]
-   dup 8 = [IF]   save-cross kernl64b.fi+  [THEN]
+   dup 2 = [IF]   save-cross kernl16b.fi-  [THEN]
+   dup 4 = [IF]   save-cross kernl32b.fi-  [THEN]
+   dup 8 = [IF]   save-cross kernl64b.fi-  [THEN]
 [ELSE]
-   dup 2 = [IF]   save-cross kernl16l.fi+  [THEN]
-   dup 4 = [IF]   save-cross kernl32l.fi+  [THEN]
-   dup 8 = [IF]   save-cross kernl64l.fi+  [THEN]
+   dup 2 = [IF]   save-cross kernl16l.fi-  [THEN]
+   dup 4 = [IF]   save-cross kernl32l.fi-  [THEN]
+   dup 8 = [IF]   save-cross kernl64l.fi-  [THEN]
 [THEN] drop cr
 
 bye