--- gforth/prim	2004/12/31 13:23:57	1.156
+++ gforth/prim	2005/01/04 22:09:03	1.157
@@ -1848,6 +1848,21 @@ char * string = cstr(c_addr1, u1, 1);
 char * pattern = cstr(c_addr2, u2, 0);
 flag = FLAG(!fnmatch(pattern, string, 0));
 
+set-dir	( c_addr u -- wior )	gforth set_dir
+""Change the current directory to @i{c-addr, u}.
+Return an error if this is not possible""
+wior = IOR(chdir(tilde_cstr(c_addr, u, 1)));
+
+get-dir	( c_addr1 u1 -- c_addr2 u2 )	gforth get_dir
+""Store the current directory in the buffer specified by @{c-addr1, u1}.
+If the buffer size is not sufficient, return 0 0""
+c_addr2 = getcwd(c_addr1, u1);
+if(c_addr2 != NULL) {
+  u2 = strlen(c_addr2);
+} else {
+  u2 = 0;
+}
+
 \+
 
 newline	( -- c_addr u )	gforth