diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f
index d015fe39d7..b93a389d6b 100644
--- a/SRC/cunbdb6.f
+++ b/SRC/cunbdb6.f
@@ -262,7 +262,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO
diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f
index 9fe87cbc77..80bcc06e27 100644
--- a/SRC/dorbdb6.f
+++ b/SRC/dorbdb6.f
@@ -261,7 +261,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO
diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f
index 2a99d4bc13..b2449e3bed 100644
--- a/SRC/sorbdb6.f
+++ b/SRC/sorbdb6.f
@@ -261,7 +261,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO
diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f
index 02494dd987..1fa7622ee3 100644
--- a/SRC/zunbdb6.f
+++ b/SRC/zunbdb6.f
@@ -262,7 +262,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO