Index: tolbase/lib/toltk/init_toltk.tcl
===================================================================
--- tolbase/lib/toltk/init_toltk.tcl	(revision 94176246b1d380a7b0f50be06e74116d7ba516d6)
+++ tolbase/lib/toltk/init_toltk.tcl	(revision d0079203c3bf574cbf3e304b35f0739504e9c431)
@@ -144,9 +144,9 @@
   set fileProject [file join $dirPrjIni "project.ini"]
   if {[file exists $fileProject]} {
-    set ok 1
+    set ok [ file writable $fileProject ] 
   } else {
     set fileProject [file join $dir "project.ini"]
     if {[file exists $fileProject]} {
-      set ok 1  
+      set ok [ file writable $fileProject ]  
     }
   }
@@ -154,5 +154,5 @@
   if {$ok} {
     set id [iniparse:openfile $fileProject]
-    ::iniFile::Create $fileProject
+    catch { ::iniFile::Create $fileProject }
     set values {}
     foreach prj $iniparse($id,sections) {