--- gforth/engine/engine.c	1999/02/06 22:28:24	1.11
+++ gforth/engine/engine.c	1999/06/17 15:32:14	1.13
@@ -132,6 +132,8 @@ char *tilde_cstr(Char *from, UCell size,
     UCell i;
     for (i=1; i<size && from[i]!='/'; i++)
       ;
+    if (i==2 && from[1]=='+') /* deal with "~+", i.e., the wd */
+      return cstr(from+3, size<3?0:size-3,clear);
     {
       char user[i];
       memcpy(user,from+1,i-1);
@@ -213,7 +215,7 @@ static int ufileattr[6]= {
 
 /* declare and compute cfa for certain threading variants */
 /* warning: this is nonsyntactical; it will not work in place of a statement */
-#ifdef CFA_NEXT
+#ifndef GETCFA
 #define DOCFA
 #else
 #define DOCFA	Xt cfa; GETCFA(cfa)