X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/a0f0b8941c3fbe8231194b09b3f1626f6bdf87f1..6b8df360bed7a9d2bc182f25fcd86235aa47735b:/elite-pairs

diff --git a/elite-pairs b/elite-pairs
index 5a435cf..700006b 100755
--- a/elite-pairs
+++ b/elite-pairs
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-pairs,v 1.4 2003/03/07 00:41:46 mdw Exp $
+# $Id$
 
 package require "elite" "1.0.1"
 
@@ -89,7 +89,8 @@ foreach {s x y} $ww {
 	puts [world-summary $ss]
 	puts ""
       } else {
-	puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]
+	puts [format "%s  %s  (%.1f LY)" \
+		  [world-brief $s] [world-brief $ss] $d]
       }
     }
   }