--- gforth/Attic/primitives	1994/07/08 15:00:59	1.11
+++ gforth/Attic/primitives	1994/07/13 19:21:05	1.12
@@ -1023,3 +1023,4 @@ lp -= sizeof(Float);
 
 up!	a_addr --	new	up_store
 up=(char *)a_addr;
+up0=(char *)a_addr;