--- gforth/mkdir.fs	2010/12/31 18:09:02	1.7
+++ gforth/mkdir.fs	2012/03/13 19:33:31	1.8
@@ -34,7 +34,7 @@
 	c-function f>ior IOR n -- n ( f -- ior )
 	    
 	: =mkdir ( c-addr u mode -- ior )
-	>r 1 tilde_cstr r> mkdir f>ior ;
+	>r 1 tilde_cstr r> over >r mkdir r> free drop f>ior ;
         end-c-library
     [THEN]
 [THEN]