diff --git a/test/smith-test.lisp b/test/smith-test.lisp
index 03c3b8f..0e8cdf3 100644
--- a/test/smith-test.lisp
+++ b/test/smith-test.lisp
@@ -170,7 +170,7 @@
 	(cat:mtrx-prdc q q-1)))
 
 
-(test minimal-term-top-left
+(test minimal-term-top-left1
       (let* ((p (cat:idnt-mtrx 4))
 	     (p-1 (cat:idnt-mtrx 4))
 	     (m (cat:random-matrix 4 5 10))
@@ -183,6 +183,7 @@
 	(cat:mtrx-prdc p p-1)
 	(cat:mtrx-prdc q q-1)))
 
+
 (test list-smith
       (let* ((p (cat:idnt-mtrx 4))
 	     (p-1 (cat:idnt-mtrx 4))