Woops, racket/gui/interactive should load .gracketrc.

(Cannot use (find-system-path 'init-file) because it will always
evaluate to .racketrc, even in gracket (where it should be
.gracketrc).)

gui-lib/racket/gui/interactive.rkt

@@ -1 +1,12 @@
 #lang racket/gui
+
+(let ([init-file (cleanse-path
+                  (build-path
+                   (find-system-path 'init-dir)
+                   ; Cludge because (find-system-path init-path) will
+                   ;   always return .racketrc, even in gracket
+                   (case (system-type)
+                     [(unix macosx) ".gracketrc"]
+                     [(windows) "gracketrc.rktl"])))])
+  (when (file-exists? init-file)
+    (load init-file)))