X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/161e6ada263c291ff3a49b1d9f371ca5f6a1751f..4041fdd8af852bf6fb4db0aa6ddd2c8c2f640574:/elite-pairs

diff --git a/elite-pairs b/elite-pairs
index 5a435cf..4492900 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"
 
@@ -65,7 +65,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
     }
     default {
       break
-    }    
+    }
   }
 }
 if {$i != [llength $argv] - 2} {
@@ -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]
       }
     }
   }