From 131334f97526df74c7a19e839a73c62dcad03e7c Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Mon, 10 Mar 2003 23:38:06 +0000
Subject: [PATCH] Late fix for new interface.

---
 elite-find | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elite-find b/elite-find
index 13a0f21..f760f5e 100755
--- a/elite-find
+++ b/elite-find
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-find,v 1.3 2003/03/07 00:41:46 mdw Exp $
+# $Id: elite-find,v 1.4 2003/03/10 23:38:06 mdw Exp $
 
 package require "elite" "1.0.1"
 
@@ -65,7 +65,7 @@ if {$i == [llength $argv] - 1} {
   puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
   exit 1
 }
-set ww [worldinfo $g]
+set ww [elite-galaxylist $g]
 foreach {s x y} $ww {
   if {[string equal $expr ""] || [ok $s {} $expr]} {
     puts [world-summary $s]
-- 
2.11.0