diff --git a/collects/planet/planet.ss b/collects/planet/planet.ss
index a486c8c062..a8dba76fe0 100644
--- a/collects/planet/planet.ss
+++ b/collects/planet/planet.ss
@@ -167,7 +167,7 @@ PLANNED FEATURES:
         (lambda (link) (apply printf "    ~a\t~a\t~a ~a\n" link))
         (cdr module)))
      (sort (current-linkage)
-           (lambda (a b) (string<? (symbol->string a) (symbol->string b))))))
+           (lambda (a b) (string<? (symbol->string (car a)) (symbol->string (car b)))))))
   
   (define (add-hard-link-cmd ownerstr pkgstr majstr minstr pathstr)
     (let* ([maj (read-from-string majstr)]