diff --git a/parking.scm b/parking.scm
index b3fcdf1..becdd81 100644
--- a/parking.scm
+++ b/parking.scm
@@ -61,7 +61,7 @@
   (has-key? 'ParkingSpacesAvailable lot))
 
 (define (only-has-handicap-spots? lot)
-  (equal? '(4) (vector->list (value 'ParkingTypes lot))))
+  (equal? #(4) (value 'ParkingTypes lot)))
 
 (define (electric-car-lot? lot)
   (member? 3 (value 'ParkingTypes lot)))