--- gforth/sieve.fs	1994/08/31 19:42:52	1.2
+++ gforth/sieve.fs	1994/10/18 15:51:22	1.3
@@ -1,7 +1,7 @@
 #! /usr/stud/paysan/bin/forth
 
 DECIMAL
-: SECS TIME&DATE  SWAP 60 * + SWAP 3600 * +  NIP NIP NIP ;
+: SECS TIME&DATE  2DROP DROP  60 * + 60 * + ;
 CREATE FLAGS 8190 ALLOT
 FLAGS 8190 + CONSTANT EFLAG