--- gforth/prim	2007/12/31 17:34:58	1.221
+++ gforth/prim	2008/02/23 13:03:56	1.224
@@ -6,7 +6,7 @@
 
 \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License
-\ as published by the Free Software Foundation; either version 2
+\ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.
 
 \ This program is distributed in the hope that it will be useful,
@@ -15,8 +15,7 @@
 \ GNU General Public License for more details.
 
 \ You should have received a copy of the GNU General Public License
-\ along with this program; if not, write to the Free Software
-\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
+\ along with this program. If not, see http://www.gnu.org/licenses/.
 
 
 \ WARNING: This file is processed by m4. Make sure your identifiers
@@ -703,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
@@ -2783,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