Index: xotcl/generic/predefined.h
===================================================================
diff -u -r99a7a21854051cd691029b15ef8877aa9e86cf44 -rf9bb662bd07a30d00a33e75ab3354bb9f8463999
--- xotcl/generic/predefined.h	(.../predefined.h)	(revision 99a7a21854051cd691029b15ef8877aa9e86cf44)
+++ xotcl/generic/predefined.h	(.../predefined.h)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
@@ -1,5 +1,5 @@
 static char cmd[] = 
-"# $Id: predefined.h,v 1.14 2007/08/06 11:35:56 neumann Exp $\n"
+"# $Id: predefined.h,v 1.15 2007/08/14 16:36:47 neumann Exp $\n"
 "foreach cmd [info command ::xotcl::Object::instcmd::*] {\n"
 "::xotcl::alias ::xotcl::Object [namespace tail $cmd] $cmd}\n"
 "foreach cmd {array append eval incr lappend trace subst unset} {\n"
@@ -126,9 +126,9 @@
 "value_check once}\n"
 "::xotcl::Attribute instproc __default_from_cmd {obj cmd var sub op} {\n"
 "$obj trace remove variable $var $op [list [self] [self proc] $obj $cmd]\n"
-"$obj set $var [$obj eval $cmd]}\n"
+"$obj set $var [eval $cmd]}\n"
 "::xotcl::Attribute instproc __value_from_cmd {obj cmd var sub op} {\n"
-"$obj set $var [$obj eval $cmd]}\n"
+"$obj set $var [eval $cmd]}\n"
 "::xotcl::Attribute instproc __value_changed_cmd {obj cmd var sub op} {\n"
 "eval $cmd}\n"
 "::xotcl::Attribute instproc destroy {} {\n"
@@ -525,16 +525,5 @@
 "if {${per-object}} {\n"
 "my proc $name $arguments $body} else {\n"
 "my instproc $name $arguments $body}}\n"
-"proc ::xotcl::tmpdir {} {\n"
-"foreach e [list TMPDIR TEMP TMP] {\n"
-"if {[info exists ::env($e)] \\\n"
-"&& [file isdirectory $::env($e)] \\\n"
-"&& [file iswritable $::env($e)]} {\n"
-"return $::env($e)}}\n"
-"if {$::tcl_platform(platform) eq \"windows\"} {\n"
-"foreach d [list \"C:\\\\TEMP\" \"C:\\\\TMP\" \"\\\\TEMP\" \"\\\\TMP\"] {\n"
-"if {[file isdirectory $d] && [file iswritable $d]} {\n"
-"return $d}}}\n"
-"return /tmp}\n"
 "";