--- gforth/prims2x.fs	2002/02/10 14:02:25	1.104
+++ gforth/prims2x.fs	2002/06/02 10:31:28	1.105
@@ -423,7 +423,7 @@ wordlist constant prefixes
     stack r@ type-stack !
     rdrop ;
 
-: type-prefix ( xt1 xt2 n stack "prefix" -- )
+: type-prefix ( addr u xt1 xt2 n stack "prefix" -- )
     get-current >r prefixes set-current
     create-type r> set-current
 does> ( item -- )