--- gforth/kernel/pass.fs	2003/03/09 15:17:06	1.4
+++ gforth/kernel/pass.fs	2003/05/11 17:17:14	1.5
@@ -21,7 +21,9 @@
 
 \ Set up dictionary pointer
 >ram here normal-dp !
-UNLOCK tudp @ LOCK udp !
+
+\ set udp
+UNLOCK user-region extent nip LOCK udp !
 
 \ Set up last and forth-wordlist with the address of the last word's
 \ link field