--- qemu/roms/SLOF/slof/fs/base.fs	2018/04/24 18:59:09	1.1
+++ qemu/roms/SLOF/slof/fs/base.fs	2018/04/24 19:25:57	1.1.1.2
@@ -101,11 +101,16 @@ CREATE $catpad 100 allot
 ;
 
 
+: 2CONSTANT    CREATE , , DOES> [ here ] 2@ ;
+
+\ Save XT of 2CONSTANT, put on the stack by "[ here ]" :
+CONSTANT <2constant>
 
-: 2CONSTANT    CREATE , , DOES> 2@ ;
 : $2CONSTANT  $CREATE , , DOES> 2@ ;
+
 : 2VARIABLE    CREATE 0 , 0 ,  DOES> ;
 
+
 : (is-user-word) ( name-str name-len xt -- ) -rot $CREATE , DOES> @ execute ;
 
 : zplace ( str len buf -- )  2dup + 0 swap c! swap move ;