--- gforth/prim	1997/09/13 12:04:58	1.6
+++ gforth/prim	1997/12/14 01:15:19	1.7
@@ -2016,7 +2016,7 @@ 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);
+u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_GLOBAL | RTLD_LAZY);
 #else
 #  ifdef HAVE_LIBKERNEL32
 u2 = (Cell) GetModuleHandle(cstr(c_addr1, u1, 1));