--- gforth/prim	2009/06/29 20:21:28	1.243
+++ gforth/prim	2009/10/05 15:54:28	1.244
@@ -2465,6 +2465,9 @@ lib-error ( -- c_addr u )       gforth
 #ifdef HAVE_LIBLTDL
 c_addr = (Char *)lt_dlerror();
 u = (c_addr == NULL) ? 0 : strlen((char *)c_addr);
+#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN)
+c_addr = dlerror();
+u = strlen(c_addr);
 #else
 c_addr = "libltdl is not configured";
 u = strlen(c_addr);