diff --git a/test/bar-test.lisp b/test/bar-test.lisp
index 52b489e..f7da188 100644
--- a/test/bar-test.lisp
+++ b/test/bar-test.lisp
@@ -177,6 +177,7 @@
                                  3 (cat:crpr 0 14 0 14))))))
 
 
+#|
 (test vrtc-bar1
       (progn
         (cat:cat-init)
@@ -230,7 +231,7 @@
           (aleat-bc)
           ;;(loop (c))
           (dotimes (i 10) (c))))) ;; degrees >= 15 is possible => error.
-
+|#
 
 (test homology
       (progn