--- gforth/prim	1997/09/13 12:04:58	1.6
+++ gforth/prim	1998/06/04 16:17:41	1.8
@@ -2016,7 +2016,10 @@ rret = ((Float(*)(argdlist($1)))u)(argcl
 
 open-lib	c_addr1 u1 -- u2	gforth	open_lib
 #if defined(HAVE_LIBDL) || defined(HAVE_DLOPEN)
-u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_LAZY);
+#ifndef RTLD_GLOBAL
+#define RTLD_GLOBAL 0
+#endif
+u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_GLOBAL | RTLD_LAZY);
 #else
 #  ifdef HAVE_LIBKERNEL32
 u2 = (Cell) GetModuleHandle(cstr(c_addr1, u1, 1));