diff --git a/runtime/spell/cleanadd.vim b/runtime/spell/cleanadd.vim
index 14eb83a..cb7620f 100644
--- a/runtime/spell/cleanadd.vim
+++ b/runtime/spell/cleanadd.vim
@@ -3,17 +3,20 @@
 " Last Update:	2006 Jan 19
 
 " Time in seconds after last time an ll.xxxxx.add file was updated
-" Default is one hour.
+" Default is one second.
+" If you invoke this script often set it to something bigger, e.g. 60 * 60
+" (one hour)
 if !exists("g:spell_clean_limit")
-  let g:spell_clean_limit = 60 * 60
+  let g:spell_clean_limit = 1
 endif
 
 " Loop over all the runtime/spell/*.add files.
+" Delete all comment lines, except the ones starting with ##.
 for s:fname in split(globpath(&rtp, "spell/*.add"), "\n")
   if filewritable(s:fname) && localtime() - getftime(s:fname) > g:spell_clean_limit
-    silent exe "split " . escape(s:fname, ' \')
+    silent exe "tab split " . escape(s:fname, ' \')
     echo "Processing" s:fname
-    silent! g/^#/d
+    silent! g/^#[^#]/d
     silent update
     close
   endif