diff --git a/sncf.ss b/sncf.ss
index 846e6dc..4ef3eb3 100755
--- a/sncf.ss
+++ b/sncf.ss
@@ -80,7 +80,8 @@
   (display (table-footer tab)))
 
 (def (display-disruptions disruptions style: (style 'unicode))
-  (displayln "Perturbations :")
+  (unless (null? disruptions)
+    (displayln "Perturbations :"))
   (for ((dis disruptions))
     (if (eq? style 'markdown)
       (display "* ")