2 files changed, 3 insertions, 3 deletions
diff --git a/module/calp/entry-points/convert.scm b/module/calp/entry-points/convert.scm
index 3f602b07..1ce33d9c 100644
--- a/module/calp/entry-points/convert.scm
+++ b/module/calp/entry-points/convert.scm
@@ -68,7 +68,7 @@
          (@ (vcomponent formats xcal parse) sxcal->vcomponent)
          ;; TODO strip *TOP*
          xml->sxml)]
-       [else (error "")]
+       [else (scm-error 'misc-error "convert-main" "Unexpected parser type: ~a" (list from) #f)]
        ))
 
    (define writer
@@ -85,7 +85,7 @@
           (sxml->xml ((@ (vcomponent formats xcal output) vcomponent->sxcal)
                       component)
                      port))]
-       [else (error "")]))
+       [else (scm-error 'misc-error "convert-main" "Unexpected writer type: ~a" (list to) #f)]))
 
 
    (call-with-output-file outfile
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm
index 61489a85..37b0285b 100644
--- a/module/calp/entry-points/html.scm
+++ b/module/calp/entry-points/html.scm
@@ -173,7 +173,7 @@
              pre-start: (start-of-week start)
              post-end: (end-of-week (end-of-month start)))]
     [else
-     (error "Unknown html style: ~a" style)])
+     (scm-error 'misc-error "html-main" "Unknown html style: ~a" (list style) #f)])
 
   ((@ (calp util time) report-time!) "all done")
   )