Modified: trunk/base/src/registry2.0/registry.tcl (70268 => 70269)

--- trunk/base/src/registry2.0/registry.tcl	2010-08-04 06:51:39 UTC (rev 70268)
+++ trunk/base/src/registry2.0/registry.tcl	2010-08-04 07:17:19 UTC (rev 70269)
@@ -401,6 +401,10 @@
     }
     set lockpath [file join ${registry.path} registry .registry.lock]
     if {![info exists lockfd]} {
+        if {![file writable [file dirname $lockpath]]} {
+            # skip locking, registry can't be modified anyway
+            return
+        }
         set lockfd [::open $lockpath w]
     }
     if {[catch {flock $lockfd -exclusive -noblock} result]} {