--- gforth/stuff.fs	2001/08/07 09:39:30	1.20
+++ gforth/stuff.fs	2002/08/12 16:39:34	1.21
@@ -126,3 +126,10 @@ 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= ;