fix MARKER

diff --git a/forth/core-ext.fth b/forth/core-ext.fth
index 7e4da068e8d11a6ebfcde52ec0663cbcb2a8fc38..9dab169c8d0a98b7e6947f22c2e01bf72928f557 100644 (file)
--- a/forth/core-ext.fth
+++ b/forth/core-ext.fth
@@ -45,8 +45,8 @@
 : erase    0 fill ;
 : roll     dup if swap >r 1- recurse r> swap exit then drop ;
 
-: marker   create _latest @ , here , does>
-           dup @ _latest ! cell+ @ here swap - allot ;
+: marker   here _latest @ create , , does>
+           dup @ _latest ! cell+ @ here - allot ;
 
 : case     ['] _lit , 1 here 0 , ['] drop , ; imm
 : of       ['] over , ['] = , postpone if ; imm