diff --git a/src/main/core/errors.lisp b/src/main/core/errors.lisp
index 5de7bc0..b878c75 100644
--- a/src/main/core/errors.lisp
+++ b/src/main/core/errors.lisp
@@ -1,36 +1,40 @@
 (in-package #:forgerie-core)
 
+(defvar *log-mapping-errors* t)
+
 (defstruct mapping-error
  error-type
  object-id
  description)
 
 (defvar *mapping-errors* nil)
 
 (defun mapping-errors-file ()
  (format nil "~A/errors" *working-directory*))
 
 (defun mapping-errors ()
  (or
   *mapping-errors*
   (setf *mapping-errors* (when (probe-file (mapping-errors-file)) (with-open-file (str (mapping-errors-file)) (read str))))))
 
 (defun add-mapping-error (error-type object-id description)
  (when
-  (not
-   (find-if
-    (lambda (mapping-error)
-     (and
-      (equal (mapping-error-error-type mapping-error) error-type)
-      (equal (mapping-error-object-id mapping-error) object-id)))
-    (mapping-errors)))
+  (and
+   *log-mapping-errors*
+   (not
+    (find-if
+     (lambda (mapping-error)
+      (and
+       (equal (mapping-error-error-type mapping-error) error-type)
+       (equal (mapping-error-object-id mapping-error) object-id)))
+     (mapping-errors))))
   (setf
    *mapping-errors*
    (cons
     (make-mapping-error
      :error-type error-type
      :object-id object-id
      :description description)
     (mapping-errors)))
   (with-open-file (str (mapping-errors-file) :direction :output :if-exists :supersede)
    (format str "~S" (mapping-errors)))))
diff --git a/src/main/core/package.lisp b/src/main/core/package.lisp
index 779755f..bb51ef5 100644
--- a/src/main/core/package.lisp
+++ b/src/main/core/package.lisp
@@ -1,48 +1,48 @@
 (defpackage #:forgerie-core (:use :cl)
  (:export
   ; run.lisp
   #:run
 
   ; base.lisp
   #:*working-directory*
   #:import-forge #:export-forge
   #:make-file #:file-id #:file-name #:file-mimetype #:file-location #:file-size
   #:make-commit #:commit-sha #:commit #:commit-parsed-comment
   #:make-patch #:patch-diff #:patch
   #:make-branch #:branch-name #:branch-commit
   #:make-note #:note-text #:note-author #:note-date #:note-id
 
   ; user.lisp
   #:make-user #:user-username #:user-name #:user-emails #:make-email #:email-address #:email-is-primary #:user-primary-email
   #:user-admin #:user-avatar
 
   ; project.lisp
   #:make-project #:project-name #:project-tags
 
   ; ticket.lisp
   #:make-ticket #:ticket-id #:ticket-projects #:ticket-title #:ticket-notes #:ticket-author #:ticket-description #:ticket-date
   #:ticket-type #:ticket #:ticket-priority #:ticket-assignee #:ticket-confidential #:ticket-linked-tickets #:ticket-subscribers
 
   ; vc-repository.lisp
   #:make-vc-repository #:vc-repository-name #:vc-repository-slug #:vc-repository-primary-projects #:vc-repository-projects
   #:vc-repository-git-location #:vc-repository-commits
 
   ; snippet.lisp
   #:make-snippet #:snippet-id #:snippet-title #:snippet-files #:snippet-notes #:snippet-author #:snippet
 
   ; merge-request.lisp
   #:make-merge-request #:merge-request-id #:merge-request-vc-repository #:merge-request-title #:merge-request-description
   #:merge-request-source-branch #:merge-request-target-branch #:merge-request-changes #:merge-request-patch
   #:merge-request-type #:merge-request-notes #:merge-request-author #:merge-request-date #:merge-request
 
   #:make-merge-request-change #:merge-request-change-change #:merge-request-change-comments
 
   #:make-merge-request-change-comment #:merge-request-change-comment-line #:merge-request-change-comment-text
   #:merge-request-change-comment-replies #:merge-request-change-comment-author #:merge-request-change-comment-file
   #:merge-request-change-comment-date
 
   ; errors.lisp
-  #:add-mapping-error
+  #:add-mapping-error #:*log-mapping-errors*
 
   ; utils.lisp
   #:vc-repositories-with-primary-project #:git-cmd #:*debug*))