diff --git a/src/optim/string/string.F b/src/optim/string/string.F
index 643a9b6667..32896a31db 100644
--- a/src/optim/string/string.F
+++ b/src/optim/string/string.F
@@ -822,7 +822,7 @@ C> @}
                 read(19,*,ERR=30,END=30) ch_tmp
               end do
  30           continue
-#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(__crayx1) || defined(GCC46)
+#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(GCC46)
               backspace 19
 #endif
             write(19,*) " "
diff --git a/src/util/util_sgroup.F b/src/util/util_sgroup.F
index 294e1c6abb..debffc3f1c 100644
--- a/src/util/util_sgroup.F
+++ b/src/util/util_sgroup.F
@@ -868,7 +868,7 @@ C>
             read(LuOut,*,ERR=30,END=30) ch_tmp
          end do
  30      continue
-#if defined(FUJITSU) || defined(PSCALE) || defined(__crayx1)
+#if defined(FUJITSU) || defined(PSCALE)
          backspace LuOut
 #endif
 *     **** FILE does not exist ****