diff --git a/collects/sirmail/spell.ss b/collects/sirmail/spell.ss
index c6ecdf678d..35349cdcde 100644
--- a/collects/sirmail/spell.ss
+++ b/collects/sirmail/spell.ss
@@ -107,7 +107,11 @@
 				 '("/sw/bin/ispell"
 				   "/usr/bin/ispell"
 				   "/bin/ispell"
-				   "/usr/local/bin/ispell")))])
+				   "/usr/local/bin/ispell"))
+			  (find-executable-path (if (eq? (system-type) 'windows)
+						    "aspell.exe"
+						    "aspell")
+						#f))])
         (if (not existing)
             (set! has-ispell? #f)
             (begin