--- gforth/prim	2007/12/31 18:40:24	1.222
+++ gforth/prim	2008/04/19 19:15:14	1.225
@@ -702,7 +702,7 @@ c2 = toupper(c1);
 :
  dup [char] a - [ char z char a - 1 + ] Literal u<  bl and - ;
 
-capscompare	( c_addr1 u1 c_addr2 u2 -- n )	string
+capscompare	( c_addr1 u1 c_addr2 u2 -- n )	gforth
 ""Compare two strings lexicographically. If they are equal, @i{n} is 0; if
 the first string is smaller, @i{n} is -1; if the first string is larger, @i{n}
 is 1. Currently this is based on the machine's character
@@ -2394,7 +2394,7 @@ r = fp[u];
 
 open-lib	( c_addr1 u1 -- u2 )	gforth	open_lib
 #if 1
-u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1));
+u2 = (UCell)lt_dlopenadvise(cstr(c_addr1, u1, 1), ltdl_advice);
 #elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN)
 #ifndef RTLD_GLOBAL
 #define RTLD_GLOBAL 0
@@ -2782,12 +2782,12 @@ uploop(i, 0, 7, `fcall(i)')
 fcall(20)
 
 \+
-\+
 
 lib-error ( -- c_addr u )       gforth  lib_error
 c_addr = lt_dlerror();
 u = (c_addr == NULL) ? 0 : strlen(c_addr);
 
+\+
 \g peephole
 
 \+peephole