diff --git a/distances.lisp b/distances.lisp
index 0d1c37a..7809e00 100644
--- a/distances.lisp
+++ b/distances.lisp
@@ -33,7 +33,7 @@
 
 
 (defmethod calculate-distance ((d distances))
-  (declare (optimize (debug 3)))
+  ; (declare (optimize (debug 3)))
   (let* ((frontier (list (root-cell d)))
          (new-frontier ()))
     (loop while (not (null frontier))