.

original commit: 77bbac313c5775859709845a3a43564f4f1ef98d

collects/framework/private/standard-menus-items.ss

@@ -183,9 +183,7 @@
           (make-generic-private-field 
            'file-menu
            '(make-object (get-menu%)
-              (if (eq? (system-type) 'windows)
-                  (string-constant file-menu-label-windows)
-                  (string-constant file-menu-label-other))
+              (string-constant file-menu-label)
               (get-menu-bar)))
           (make-generic-method
            'get-edit-menu

collects/mrlib/graph.ss

@@ -17,12 +17,13 @@
       remove-child
       
       get-parents
-      get-parent-links
       add-parent
       remove-parent
       
       find-shortest-path))
   
+  (define-local-member-name get-parent-links)
+  
   (provide/contract (add-links
 		     (case->
 		      ((is-a?/c graph-snip<%>)