--- gforth/envos.fs.in	2012/03/22 16:27:11	1.15
+++ gforth/envos.fs.in	2012/07/02 21:59:10	1.16
@@ -30,6 +30,10 @@ set-current
 \G the suffix for loading shared objects
     s" @LIB_SUFFIX@" ;
 
+: arch-modifier ( -- c-addr u ) \ gforth
+\G the file name or directory modifier for the architecture
+    s" @ARCH@" ;
+
 : libtool-command ( -- c-addr u ) \ gforth
 \G name of the GNU libtool command
     s" @GNU_LIBTOOL@" ;