--- dev/main.lisp	2007-12-13 19:10:17.000000000 -0500
+++ main.lisp	2008-02-14 19:38:49.000000000 -0500
@@ -118,7 +118,7 @@
                     (version (maybe-warn (lisp-version-string)
                                          "Don't know how to get Lisp ~
                                           implementation version.")))
-                (format nil "~(~@{~a~^-~}~)" lisp version os arch))))))
+                (format nil "~(~@{~a~^-~}~)" lisp os arch))))))
 
 (defun pathname-prefix-p (prefix pathname) 
   (not (equal (enough-namestring pathname prefix) (namestring pathname))))