diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt
index 6f9e642cdd..fed6ac7d96 100644
--- a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt
@@ -24,7 +24,9 @@
 
 (define (ignore? x) 
   (or (member x '("compiled"))
-      (regexp-match #rx"~$" x)))
+      (if (equal? (system-type) 'windows)
+          (regexp-match #rx"[.]bak$" x)
+          (regexp-match #rx"~$" x))))
 
 (define (find-completions str the-current-directory #:alternate-racket [alternate-racket #f])
   (cond