diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index c4364c45e3..bdbbbec307 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -1379,7 +1379,11 @@ module browser threading seems wrong.
                 string))
           
           (define/private (get-save-diamond-prefix)
-            (let ([candidate-prefixes '("◆ " "* ")])
+            (let ([candidate-prefixes (list 
+                                       (case (system-type)
+                                         [(windows) "• "]
+                                         [else "◆ "])
+                                       "* ")])
               (ormap
                (lambda (candidate)
                  (and (andmap (λ (x) (send normal-control-font screen-glyph-exists? x #t))