--- gforth/prim	2008/04/19 19:15:14	1.225
+++ gforth/prim	2008/05/04 17:04:58	1.226
@@ -2394,7 +2394,7 @@ r = fp[u];
 
 open-lib	( c_addr1 u1 -- u2 )	gforth	open_lib
 #if 1
-u2 = (UCell)lt_dlopenadvise(cstr(c_addr1, u1, 1), ltdl_advice);
+u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1));
 #elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN)
 #ifndef RTLD_GLOBAL
 #define RTLD_GLOBAL 0