diff --git a/src/sources/mysql/mysql-schema.lisp b/src/sources/mysql/mysql-schema.lisp
index 3ee29ec..6d86409 100644
--- a/src/sources/mysql/mysql-schema.lisp
+++ b/src/sources/mysql/mysql-schema.lisp
@@ -306,7 +306,13 @@ FROM
                                                     (sq:split-sequence #\, fcols))
                                   :update-rule update-rule
                                   :delete-rule delete-rule)))
-           (add-fkey table fk))
+           (if (and name table ftable)
+               (add-fkey table fk)
+               (log-message :error
+                            "Incomplete Foreign Key definition: constraint ~s on table ~s referencing table ~s"
+                            name
+                            (when table (format-table-name table))
+                            (when ftable (format-table-name ftable)))))
      :finally
      (return schema)))
 
diff --git a/src/utils/monitor.lisp b/src/utils/monitor.lisp
index a71136e..34924e3 100644
--- a/src/utils/monitor.lisp
+++ b/src/utils/monitor.lisp
@@ -198,7 +198,8 @@
                             (format nil "~{~}"
                                     (log-message-description event)
                                     (log-message-arguments event))
-                            (log-message-description event))))
+                            (log-message-description event)))
+                  (*print-circle* t))
               (cl-log:log-message (log-message-category event) "~a" mesg)))
 
            (new-label