Index: xotcl/generic/predefined.xotcl
===================================================================
diff -u -re525b7364d9b1fbc7b06e81becf4fe0df06c4209 -r57972e5a2972b1eb5dd63f6e3d483670117feebf
--- xotcl/generic/predefined.xotcl	(.../predefined.xotcl)	(revision e525b7364d9b1fbc7b06e81becf4fe0df06c4209)
+++ xotcl/generic/predefined.xotcl	(.../predefined.xotcl)	(revision 57972e5a2972b1eb5dd63f6e3d483670117feebf)
@@ -1,4 +1,4 @@
-# $Id: predefined.xotcl,v 1.15 2007/08/14 16:38:26 neumann Exp $
+# $Id: predefined.xotcl,v 1.16 2007/09/05 19:09:22 neumann Exp $
 # provide the standard command set for ::xotcl::Object
 foreach cmd [info command ::xotcl::Object::instcmd::*] {
   ::xotcl::alias ::xotcl::Object [namespace tail $cmd] $cmd 
@@ -12,6 +12,7 @@
   ::xotcl::alias ::xotcl::Class [namespace tail $cmd] $cmd 
 }
 unset cmd
+
 # init must exist on Object. per default it is empty.
 ::xotcl::Object instproc init args {}
 
@@ -864,13 +865,13 @@
   foreach e [list TMPDIR TEMP TMP] {
     if {[info exists ::env($e)] \
             && [file isdirectory $::env($e)] \
-            && [file iswritable $::env($e)]} {
+            && [file writable $::env($e)]} {
       return $::env($e)
     }
   }
   if {$::tcl_platform(platform) eq "windows"} {
     foreach d [list "C:\\TEMP" "C:\\TMP" "\\TEMP" "\\TMP"] {
-      if {[file isdirectory $d] && [file iswritable $d]} {
+      if {[file isdirectory $d] && [file writable $d]} {
         return $d
       }
     }