--- gforth/prims2x.fs	2001/03/01 14:27:22	1.88
+++ gforth/prims2x.fs	2001/03/04 13:39:34	1.89
@@ -1167,7 +1167,7 @@ Variable c-flag
 )) <- simple-primitive ( -- )
 
 (( {{ init-combined }}
-   ` = (( white ++ {{ start }} forth-ident {{ end add-prim }} )) ++
+   ` = white ** (( {{ start }} forth-ident {{ end add-prim }} white ** )) ++
    nleof {{ process-combined }}
 )) <- combined-primitive