--- gforth/prim	2008/01/13 16:02:37	1.223
+++ gforth/prim	2008/02/23 13:03:56	1.224
@@ -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