X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;ds=inline;f=yarrg%2Fwhere-vessels;h=da6480174192bf8786cabe054c30dd94aa837f2c;hb=2c97dc028281b715f42af6d1f9bd549be85ffadf;hp=99929dbfc4e6794209c89f1c0c334673b4072b40;hpb=579410edbae28cc350c353db289ba4cc6788d30a;p=ypp-sc-tools.db-live.git

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 99929db..da64801 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -136,6 +136,7 @@ proc have-notes {} {
     return [string length $notes_loc]
 }
 proc have-ownership {} {
+    global pirate
     return [expr {[have-notes] && [string length $pirate]}]
 }