--- gforth/kernel/xchars.fs	2005/01/12 21:21:53	1.3
+++ gforth/kernel/xchars.fs	2006/02/19 17:27:13	1.4
@@ -33,6 +33,7 @@ DEFER XC@ ( xc-addr -- xc )
 DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded
 DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )
 DEFER XC-SIZE ( xc -- u ) \ size in cs
+DEFER X-WIDTH ( addr u -- n ) \ size in fixed chars
 DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc
 
 \ derived words, faster implementations are probably possible
@@ -75,5 +76,6 @@ DEFER -TRAILING-GARBAGE ( addr u1 -- add
     ['] c!+? is xc!+?
     ['] count is xc@+
     ['] c-size is xc-size
+    ['] nip IS x-width
     ['] noop is -trailing-garbage
 ;