--- gforth/prim	1999/03/29 22:52:28	1.27
+++ gforth/prim	1999/05/05 12:07:56	1.28
@@ -1325,6 +1325,8 @@ a_addr = PFA(xt);
 :
     2 cells + ;
 
+\+standardthreading
+
 >code-address		xt -- c_addr		gforth	to_code_address
 ""@var{c-addr} is the code address of the word @var{xt}.""
 /* !! This behaves installation-dependently for DOES-words */
@@ -1385,6 +1387,8 @@ n=1;
 :
  1 ;
 
+\+
+
 key-file	wfileid -- n		gforth	paren_key_file
 #ifdef HAS_FILE
 fflush(stdout);