Fixed +place (thanks to Marcos Cruz)

kernel/paths.fs

@@ -50,15 +50,13 @@
 include string.fs
 
 [IFUNDEF] +place
-: +place ( adr len adr )
-        2dup >r >r
-        dup c@ char+ + swap move
-        r> r> dup c@ rot + swap c! ;
+: +place ( adr len adr -- )
+    2dup c@ dup >r  + over c!  r> char+ +  swap move ;
 [THEN]
 
 [IFUNDEF] place
 : place ( c-addr1 u c-addr2 )
-        2dup c! char+ swap move ;
+    2dup c! char+ swap move ;
 [THEN]
 
 Variable fpath ( -- path-addr ) \ gforth

other.fs

@@ -27,11 +27,10 @@
 : name bl word ;
 : on true swap ! ;
 : off false swap ! ;
-: place ( adr len adr )
-        2dup c! char+ swap move ;
-: +place ( adr len adr )
-        2dup c@ + over c!
-        dup c@ char+ + swap move ;
+: place ( adr len adr -- )
+    2dup c! char+ swap move ;
+: +place ( adr len adr -- )
+    2dup c@ dup >r  + over c!  r> char+ +  swap move ;
 : -rot  rot rot ;
 
 include toolsext.fs