fix query-aspell so that it returns an empty list when aspell isn't working

collects/framework/private/aspell.rkt

@@ -197,8 +197,10 @@
                     (loop)])))))))))
 
 (define (query-aspell line [dict #f])
-  (unless (aspell-problematic?)
-    
+  (cond
+    [(aspell-problematic?)
+     '()]
+    [else
      (when dict
        (unless (member dict (get-aspell-dicts))
          (set! dict #f)))
@@ -209,7 +211,7 @@
        (λ (nack-evt)
          (define resp (make-channel))
          (channel-put aspell-req-chan (list line dict resp nack-evt))
-        resp)))))
+         resp)))]))
 
 (define aspell-dicts #f)
 (define (get-aspell-dicts)