--- gforth/prim	2003/01/02 16:48:12	1.113
+++ gforth/prim	2003/01/07 22:38:36	1.114
@@ -2486,7 +2486,7 @@ f = forget_dyncode(c_code);
 decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim
 ""a_prim is the code address of the primitive that has been
 compile_prim1ed to a_code""
-a_prim = decompile_code(a_code);
+a_prim = (Label)decompile_code((Label)a_code);
 
 \+