diff --git a/lib/jt9a.F90 b/lib/jt9a.F90
index 5f0916827..84727c216 100644
--- a/lib/jt9a.F90
+++ b/lib/jt9a.F90
@@ -51,8 +51,7 @@ subroutine jt9a
 
 100 inquire(file=trim(cwd)//'/.lock',exist=fileExists)
   if(fileExists) go to 10
-  !call sleep_msec(100)
-  call usleep(100*1000)
+  call sleep_msec(100)
   go to 100
 
 999 return
diff --git a/lib/sleep_msec.f90 b/lib/sleep_msec.f90
index 66841b895..1a8dbe4f9 100644
--- a/lib/sleep_msec.f90
+++ b/lib/sleep_msec.f90
@@ -1,3 +1,4 @@
 subroutine sleep_msec(n)
+  call usleep(n*1000)
   return
 end subroutine sleep_msec