--- gforth/sieve.fs	1994/08/31 19:42:52	1.2
+++ gforth/sieve.fs	2010/12/27 13:16:47	1.4
@@ -1,7 +1,7 @@
-#! /usr/stud/paysan/bin/forth
+#! /usr/bin/gforth
 
 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