diff --git a/main.scm b/main.scm
index 39d0a3c..5b71f4d 100755
--- a/main.scm
+++ b/main.scm
@@ -90,21 +90,33 @@ string-block
 
 (define (display-source-html source-file) ;; src/main.scm
   (format #t "<p id=\"file-path\">~a</p>" source-file)
-  (case (string->symbol (or (pathname-extension source-file) ""))
+  (case (string->symbol (or (pathname-extension source-file) "no-extension"))
     ((md markdown)
-     (markdown->html (git-file->string source-file)))
+     (handle-exceptions exn
+         (begin
+            (display "Error parsing " (current-error-port))
+            (display source-file (current-error-port))
+            (display "\n" (current-error-port))
+            (display "<p><b>There was an error parsing this file as Markdown.</b></p>")
+            (display "<pre>")
+            (display-escaped-html (git-file->string source-file))
+            (display "</pre>"))
+        (markdown->html (git-file->string source-file))))
     ((jpg jpeg png gif webp webm apng avif svgz ico)
-     (format #t "<p><img src=\"~a\" /></p>" source-file)
-     )
+     (format #t "<p><img src=\"~a\" /></p>" source-file))
     ((svg)
      (format #t "<p><img src=\"~a\" /></p>" source-file)
      (display "<pre>")
      (display-escaped-html (git-file->string source-file))
      (display "</pre>"))
-    (else
+    ((gz pack idx)
+     (display "<p>(Binary file)</p>"))
+    ((txt no-extension)
      (display "<pre>")
      (display-escaped-html (git-file->string source-file))
-     (display "</pre>"))))
+     (display "</pre>"))
+    (else
+     (display "<p>(Unknown file type)</p>"))))
 
 (define (display-files-html source-files-list)
   (display "<ul>\n")