--- gforth/kernel/xchars.fs	2007/12/31 18:40:26	1.13
+++ gforth/kernel/xchars.fs	2008/12/06 16:28:13	1.14
@@ -88,6 +88,8 @@ Defer -trailing-garbage ( xc-addr u1 --
     holdptr @ dup holdbuf u< -&17 and throw
     8 xc!+? 2drop drop ;
 
+: xc, ( xchar -- ) here unused xc!+? 2drop dp ! ;
+
 \ fixed-size versions of these words
 
 : char- ( c-addr1 -- c-addr2 )