From 2f7b5d9128f830fece659884b64cb498ce3e60e8 Mon Sep 17 00:00:00 2001
From: Gerd Heber <gheber@hdfgroup.org>
Date: Fri, 10 Jul 2015 21:11:14 -0500
Subject: [PATCH] VRTC-BAR appears to be fixed by the +MAXIMAL-DIMENSION+ bump.

---
 test/bar-test.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/test/bar-test.lisp b/test/bar-test.lisp
index 3a5cd94..0075c40 100644
--- a/test/bar-test.lisp
+++ b/test/bar-test.lisp
@@ -160,6 +160,7 @@
 	  (cat:? cf 6 (cat:abar 3 (cat:crpr 0 (cat:d 7) 0 (cat:d 7)) 3
 				(cat:crpr 0 (cat:d 56) 0 (cat:d 56)))))))
 
+
 (test hmtp-vrtc-bar-intr
       (progn
 	(cat:cat-init)
@@ -197,7 +198,7 @@
   (aleat-bc)
   (check-rdct))
 
-#|
+
 (test vrtc-bar
       (progn
 	(cat:cat-init)
@@ -249,8 +250,9 @@
 	  (cat:pre-check-rdct bar)
 	  (aleat-tc)
 	  (aleat-bc)
-	  (loop (c))))) ;; degrees >= 15 is possible => error.
-|#
+	  ;;(loop (c))
+	  (dotimes (i 10) (c))))) ;; degrees >= 15 is possible => error.
+
 
 (test homology
       (progn