diff --git a/src/NPC.hs b/src/NPC.hs
index 1eedec4..9d031a1 100644
--- a/src/NPC.hs
+++ b/src/NPC.hs
@@ -154,7 +154,7 @@ updateNPCs imgmat rp dt =
       ntargeti <- randomRIO (0, length seekRP - 1)
       let ntarget = pointCoord (seekRP !! ntargeti)
           path = astarAppl imgmat ntarget pos'
-      logIO A.Debug ("seeking path from " ++ show pos' ++ " to " ++ show ntarget)
+      logIO A.Verbose ("seeking path from " ++ show pos' ++ " to " ++ show ntarget)
       case path of
         Nothing -> getPath pos'
         Just p  -> return p