--- gforth/kernel/pass.fs	2003/08/25 14:17:54	1.6
+++ gforth/kernel/pass.fs	2006/02/12 23:45:55	1.7
@@ -23,7 +23,9 @@
 >ram here normal-dp !
 
 \ set udp
+has? no-userspace 0= [IF]
 UNLOCK user-region extent nip LOCK udp !
+[THEN]
 
 \ Set up last and forth-wordlist with the address of the last word's
 \ link field