1 files changed, 5 insertions, 1 deletions
diff --git a/guimb/scm/sieve.scm.in b/guimb/scm/sieve.scm.in
index edbba129f..45c82efd3 100644
--- a/guimb/scm/sieve.scm.in
+++ b/guimb/scm/sieve.scm.in
@@ -949,7 +949,11 @@
      (newline)
      (sieve-usage)))
 
-(define guimb? (string->obarray-symbol #f "mu-mailbox-open" #t))
+(define guimb? (catch #t
+                      (lambda ()
+                        (let ((package mu-package))
+                          package))
+                      (lambda args #f)))
 
 (if (and guimb? (string? user-name))
     (set! filename (sieve-expand-filename filename)))