--- gforth/stuff.fs	2005/12/31 15:46:10	1.47
+++ gforth/stuff.fs	2006/01/28 17:55:32	1.48
@@ -333,3 +333,10 @@ interpret/compile: what's ( interpretati
 	emit
     loop ;
 
+\ w@ and l@
+
+[ifdef] uw@
+' uw@ alias w@ ( addr -- u )
+' ul@ alias l@ ( addr -- u )
+\ ' sw@ alias <w@ ( addr -- n ) \ Open Firmware name
+[then]