diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index b988e113be..572d1b785d 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -1776,7 +1776,8 @@ (label (car (last-pair lang))) (color (send the-color-database find-color "blue")) (callback (λ () (change-current-lang-to lang))) - (font (get-font #:underlined #t)))))) + (font (get-font #:underlined #t))) + (new canvas-message% (parent panel2) (label (string-constant start-with-after)))))) ;; get-text-pls : path -> (listof (list* string string (listof string)) ;; gets the questions from an info.ss file. diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 9d838f7194..718dd9c9d7 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -954,7 +954,8 @@ please adhere to these guidelines: ; next two are before and after a language (start-with-before "Start with ") - + (start-with-after "") + (seasoned-plt-schemer? "Seasoned PLT Schemer?") (looking-for-standard-scheme? "Looking for standard Scheme?")