diff --git a/modules/nwtc-library/src/NWTC_IO.f90 b/modules/nwtc-library/src/NWTC_IO.f90
index cf254f860..d925e9510 100644
--- a/modules/nwtc-library/src/NWTC_IO.f90
+++ b/modules/nwtc-library/src/NWTC_IO.f90
@@ -2109,7 +2109,7 @@ SUBROUTINE GetWords ( Line, Words, NumWords, NumFound, IgnoreQuotes )
    do i = 1, len_trim(line)
 
       ! Get current character
-      Char = Line(i:i)
+!      Char = Line(i:i)
 
       ! Select based on character
       if (Line(i:i) == '"' .or.  Line(i:i)== "'") then