--- gforth/prim	2005/12/03 15:15:20	1.180
+++ gforth/prim	2005/12/11 19:31:48	1.182
@@ -2444,17 +2444,23 @@ FP=fp;
 sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP);
 fp=FP;
 
-w@ ( a_addr -- n )	gforth wfetch
-n = *(short*)(a_addr);
+w@ ( a_addr -- u )	gforth wfetch
+u = *(UWyde*)(a_addr);
 
-w! ( n a_addr -- )	gforth wstore
-*(short*)(a_addr) = n;
+sw@ ( a_addr -- u )	gforth swfetch
+u = *(Wyde*)(a_addr);
 
-t@ ( a_addr -- n )	gforth tfetch
-n = *(int*)(a_addr);
+w! ( u a_addr -- )	gforth wstore
+*(Wyde*)(a_addr) = u;
 
-t! ( n a_addr -- )	gforth tstore
-*(int*)(a_addr) = n;
+l@ ( a_addr -- u )	gforth lfetch
+u = *(UTetrabyte*)(a_addr);
+
+sl@ ( a_addr -- u )	gforth slfetch
+u = *(Tetrabyte*)(a_addr);
+
+l! ( u a_addr -- )	gforth lstore
+*(Tetrabyte*)(a_addr) = u;
 
 \+FFCALL