--- gforth/stuff.fs	2002/08/12 16:39:34	1.21
+++ gforth/stuff.fs	2002/09/14 08:20:20	1.22
@@ -126,10 +126,3 @@ AUser CSP
 	2drop
     repeat
     - + dup >r resize throw r> ;
-
-: str= ( c-addr1 u1 c-addr2 u2 -- f )
-    compare 0= ;
-
-: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f )
-    \G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?
-    tuck 2>r min 2r> compare 0= ;