diff --git a/parking.scm b/parking.scm
index 5c90c4c..9902d9e 100644
--- a/parking.scm
+++ b/parking.scm
@@ -72,8 +72,8 @@
                                        (cons (string->symbol (string-downcase k)) v)))
                           (array . ,identity)) (json-parsers)))
   (display-newline "Parking spaces available:")
-  (let ((lots (sort-via string-ci<? (curry value 'name) (get-parking-lots))))
-    (map (compose display-newline (curry format-assoc '(name ": " parkingspacesavailable "/" parkingspaces)))
-         (filter (conjoin computerized? (complement only-has-handicap-spots?)) lots))))
+  (map (compose display-newline (curry format-assoc '(name ": " parkingspacesavailable "/" parkingspaces)))
+       (filter (conjoin computerized? (complement only-has-handicap-spots?))
+               (sort-via string-ci<? (curry value 'name) (get-parking-lots)))))
 
 (main)