--- gforth/Attic/kernal.fs	1994/07/08 15:00:51	1.10
+++ gforth/Attic/kernal.fs	1994/07/13 19:21:03	1.11
@@ -385,7 +385,7 @@ variable dead-code \ true if normal code
    over 0<>
  while
    over
-   cell+ name> >body @ max
+   name> >body @ max
    swap @ swap ( get next )
  repeat
  faligned nip ;