X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/blobdiff_plain/161e6ada263c291ff3a49b1d9f371ca5f6a1751f..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]
       }
     }
   }