--- gforth/mkdir.fs	2010/12/30 21:46:14	1.6
+++ gforth/mkdir.fs	2012/12/31 15:25:18	1.10
@@ -1,6 +1,6 @@
 \ mkdir wrapper
 
-\ Copyright (C) 2008 Free Software Foundation, Inc.
+\ Copyright (C) 2008,2010,2012 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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 tilde_cstr r> over >r mkdir r> free drop f>ior ;
         end-c-library
     [THEN]
 [THEN]