--- gforth/arch/4stack/prim.fs	1999/12/30 20:43:25	1.2
+++ gforth/arch/4stack/prim.fs	2000/03/11 20:35:06	1.3
@@ -385,6 +385,8 @@ Code (find-samelen)
 	nip      nop       drop     nop                               ;;
 end-code
 
+: bye  0 execute ;
+
 \ division a/b
 \ x:=a, y:=b, r:=est; iterate(x:=x*r, y:=y*r, r:=2-y*r);
 \ result: x=a/b; y=1; r=1