Fixed another bug found with random testing

svn: r18583 original commit: a0049642970027b1c9866a28ee1e158c8cf7036b
2010-03-19 14:08:48 +00:00 · 2010-03-19 14:08:48 +00:00 · 08c7e8c53a
commit 08c7e8c53a
parent 4430b73934
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wxme/editor.ss
+++ b/collects/mred/private/wxme/editor.ss
@ -399,7 +399,8 @@
          (send new-list notify-on-change (lambda (which) (style-has-changed which))))
    (set! s-style-list new-list)
    ;; create "Standard" if it's not there:
-    (send s-style-list new-named-style "Standard" (send s-style-list basic-style)))
+    (send s-style-list new-named-style "Standard" (send s-style-list basic-style))
+    (void))

  (define/public (style-has-changed which) (void))