--- gforth/Attic/kernal.fs	1995/02/06 18:14:34	1.28
+++ gforth/Attic/kernal.fs	1995/02/09 17:49:57	1.29
@@ -704,8 +704,9 @@ Avariable leave-sp  leave-stack 3 cells
     cell - dup @ swap
     leave-sp ! ;
 
-: DONE ( orig -- )  drop >r drop
+: DONE ( orig -- )
     \ !! the original done had ( addr -- )
+    drop >r drop
     begin
 	leave>
 	over r@ u>=