Index: openacs-4/packages/acs-content-repository/tcl/content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	10 Jan 2007 21:22:03 -0000	1.11
+++ openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	31 May 2013 20:27:17 -0000	1.12
@@ -34,7 +34,7 @@
 	    if {$i < $item_id_length} {
 		# Check that the directory exists
 		if {![file exists [cr_fs_path]$path]} {
-		    ns_mkdir [cr_fs_path]$path
+		    file mkdir [cr_fs_path]$path
 		}
 
 		append path "/"
@@ -44,7 +44,7 @@
 
     # Check that the directory exists
     if {![file exists [cr_fs_path]$path]} {
-	ns_mkdir [cr_fs_path]$path
+	file mkdir [cr_fs_path]$path
     }
 
     if {[string index $path end] ne "/" } {
Index: openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt	12 Apr 2013 16:12:56 -0000	1.4
+++ openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt	31 May 2013 20:27:17 -0000	1.5
@@ -22,7 +22,7 @@
 	
 	# make the backup directory
 	if ![file exists $bak] {
-        if [catch {ns_mkdir $bak} errmsg] {
+        if [catch {file mkdir $bak} errmsg] {
             ns_log Error "mkdir failed: $errmsg"
 		ns_sendmail [ad_system_owner] [ad_system_owner] "[ad_system_name] : mkdir failed..." "$errmsg" 
             return
Index: openacs-4/packages/contacts/tcl/oo-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/oo-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/contacts/tcl/oo-procs.tcl	14 Dec 2006 09:11:28 -0000	1.9
+++ openacs-4/packages/contacts/tcl/oo-procs.tcl	31 May 2013 20:27:17 -0000	1.10
@@ -283,7 +283,7 @@
 } {
     # Create a temporary directory
     set dir [ns_tmpnam]
-    ns_mkdir $dir
+    file mkdir $dir
 
     array set content_array $contents
     foreach filename [array names content_array] {
Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	7 Feb 2010 22:34:56 -0000	1.20
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	31 May 2013 20:27:17 -0000	1.21
@@ -988,7 +988,7 @@
         foreach directory $dir_list {
             set next_dir_step [file join $dir_step $directory]
             if { ![file exists $next_dir_step]} {
-                ns_mkdir $next_dir_step
+                file mkdir $next_dir_step
             }
             set dir_step $next_dir_step
         }
Index: openacs-4/packages/invoices/www/invoice-join.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-join.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/invoices/www/invoice-join.tcl	24 May 2006 09:40:38 -0000	1.2
+++ openacs-4/packages/invoices/www/invoice-join.tcl	31 May 2013 20:27:17 -0000	1.3
@@ -26,7 +26,7 @@
     db_1row last_checkout {}
 
     set tmpdir [ns_tmpnam]
-    ns_mkdir $tmpdir
+    file mkdir $tmpdir
     set files {}
     db_foreach pdfs_to_join {} {
 	ns_cp "${root_dir}$content" "${tmpdir}/[file tail $content].pdf"
Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	10 Feb 2009 02:20:33 -0000	1.21
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	31 May 2013 20:27:17 -0000	1.22
@@ -860,7 +860,7 @@
 
 } {
     set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
-    if [catch { ns_mkdir $tmp_dir } errMsg ] {
+    if [catch { file mkdir $tmp_dir } errMsg ] {
         ns_log Notice "LORS::imscp::expand_file: Error creating directory $tmp_dir: $errMsg"
         return -code error "LORS::imscp::expand_file: Error creating directory $tmp_dir: $errMsg"
     }
Index: openacs-4/packages/package-builder/www/package-code-generate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/package-builder/www/package-code-generate.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/package-builder/www/package-code-generate.tcl	8 Feb 2005 11:48:13 -0000	1.1
+++ openacs-4/packages/package-builder/www/package-code-generate.tcl	31 May 2013 20:27:17 -0000	1.2
@@ -21,12 +21,12 @@
 set types [db_list types {}]
 
 # ns_rmdir $pkg(path)
-ns_mkdir $pkg(path)
-ns_mkdir "$pkg(path)/tcl"
-ns_mkdir "$pkg(path)/www"
-ns_mkdir "$pkg(path)/catalog"
-ns_mkdir "$pkg(path)/sql"
-ns_mkdir "$pkg(path)/sql/postgresql"
+file mkdir $pkg(path)
+file mkdir "$pkg(path)/tcl"
+file mkdir "$pkg(path)/www"
+file mkdir "$pkg(path)/catalog"
+file mkdir "$pkg(path)/sql"
+file mkdir "$pkg(path)/sql/postgresql"
 
 pb::create::info::create -pkg_data $pkg_data
 pb::create::db::create -pkg_data $pkg_data
Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	8 Aug 2006 21:27:08 -0000	1.17
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	31 May 2013 20:27:17 -0000	1.18
@@ -238,8 +238,8 @@
         }
         append needed_dir "/$dir"
         if ![file exists $needed_dir] {
-	    ns_log Debug "pa_assert_dir: ns_mkdir $dir"
-            ns_mkdir $needed_dir
+	    ns_log Debug "pa_assert_dir: file mkdir $dir"
+            file mkdir $needed_dir
         }
     }
 }
@@ -625,7 +625,7 @@
     of the function 
 } {
     set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
-    if [catch { ns_mkdir $tmp_dir } errMsg ] {
+    if [catch { file mkdir $tmp_dir } errMsg ] {
         ns_log Warning "pa_expand_archive: Error creating directory $tmp_dir: $errMsg"
         return -code error "pa_expand_archive: Error creating directory $tmp_dir: $errMsg"
     }
@@ -804,7 +804,7 @@
     set tmp_path [parameter::get -parameter FullTempPhotoDir -package_id $package_id]
     if { ![file exists $tmp_path] } {
         ns_log Debug "pa_load_images: Making: tmp_photo_album_dir_path $tmp_path"
-        ns_mkdir $tmp_path
+        file mkdir $tmp_path
     }
 
     # Fix upload name if missing
Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl	30 Oct 2010 21:43:01 -0000	1.19
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl	31 May 2013 20:27:17 -0000	1.20
@@ -87,7 +87,7 @@
     foreach dir [split $path /] {
 	append running_path ${dir}/
 	if ![file exists $running_path] {
-	    ns_mkdir $running_path
+	    file mkdir $running_path
 	}
     }
 }
Index: openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl	23 May 2010 20:27:51 -0000	1.2
+++ openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl	31 May 2013 20:27:17 -0000	1.3
@@ -23,7 +23,7 @@
 
 } {
     set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
-    if [catch { ns_mkdir $tmp_dir } errMsg ] {
+    if [catch { file mkdir $tmp_dir } errMsg ] {
         ns_log Notice "util::archive::expand_file: Error creating directory $tmp_dir: $errMsg"
         return -code error "util::archive::expand_file: Error creating directory $tmp_dir: $errMsg"
     }