--- gforth/prim	2000/08/09 20:04:06	1.52
+++ gforth/prim	2000/08/11 19:49:39	1.53
@@ -819,6 +819,7 @@ w2 = ~w1;
  MAXU xor ;
 
 rshift	( u1 n -- u2 )		core	r_shift
+""Logical shift right by @i{n} bits.""
   u2 = u1>>n;
 :
     0 ?DO 2/ MAXI and LOOP ;