diff --git a/collects/drracket/private/app.rkt b/collects/drracket/private/app.rkt
index 5ec857a585..8590b0cae1 100644
--- a/collects/drracket/private/app.rkt
+++ b/collects/drracket/private/app.rkt
@@ -369,9 +369,9 @@
                (λ (x y)
                  (send-url url)))))])
     (add (string-constant plt-homepage) "http://racket-lang.org/")
-    (add (string-constant teachscheme!-homepage) "http://www.teach-scheme.org/")
-    (add (string-constant how-to-design-programs) "http://www.htdp.org/")
-    
+    (add (string-constant pbd-homepage) "http://programbydesign.org/")
+    (add (string-constant how-to-design-programs) "http://htdp.org/")
+
     (for-each (λ (tool)
                 (cond [(drracket:tools:successful-tool-url tool) 
                        =>
diff --git a/collects/string-constants/danish-string-constants.rkt b/collects/string-constants/danish-string-constants.rkt
index 5954e73e95..977047c1de 100644
--- a/collects/string-constants/danish-string-constants.rkt
+++ b/collects/string-constants/danish-string-constants.rkt
@@ -133,7 +133,7 @@ please adhere to these guidelines:
   (tool-web-sites "Tool Web Sites")   ;; menu item title
   (plt-homepage "Racket")
   (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
   
   ;;; bug report form
   (cancel-bug-report? "Fortryd afsendelse af fejlrapport?")
diff --git a/collects/string-constants/dutch-string-constants.rkt b/collects/string-constants/dutch-string-constants.rkt
index f0c63566cc..a14edccb42 100644
--- a/collects/string-constants/dutch-string-constants.rkt
+++ b/collects/string-constants/dutch-string-constants.rkt
@@ -33,7 +33,7 @@
  (web-materials "Verwante Web Sites") ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Melden defect afbreken?")
diff --git a/collects/string-constants/english-string-constants.rkt b/collects/string-constants/english-string-constants.rkt
index c6dd81652e..12b25d35ca 100644
--- a/collects/string-constants/english-string-constants.rkt
+++ b/collects/string-constants/english-string-constants.rkt
@@ -135,7 +135,7 @@ please adhere to these guidelines:
  (tool-web-sites "Tool Web Sites")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Cancel Bug Report?")
diff --git a/collects/string-constants/french-string-constants.rkt b/collects/string-constants/french-string-constants.rkt
index 655cc9ef32..32615600f8 100644
--- a/collects/string-constants/french-string-constants.rkt
+++ b/collects/string-constants/french-string-constants.rkt
@@ -135,7 +135,7 @@
   (tool-web-sites "Sites web d'outils")   ;; menu item title
   (plt-homepage "Racket")
   (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
   
   ;;; bug report form
   (cancel-bug-report? "Annuler la soumission du rapport de bogue ?")
diff --git a/collects/string-constants/german-string-constants.rkt b/collects/string-constants/german-string-constants.rkt
index 7b035962bc..b29ba84b41 100644
--- a/collects/string-constants/german-string-constants.rkt
+++ b/collects/string-constants/german-string-constants.rkt
@@ -37,7 +37,7 @@
  (tool-web-sites "Web-Seiten mit Tools")
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme")
- (teachscheme!-homepage "TeachScheme!")
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Bug-Report verwerfen?")
diff --git a/collects/string-constants/japanese-string-constants.rkt b/collects/string-constants/japanese-string-constants.rkt
index 115db43130..0f4511033c 100644
--- a/collects/string-constants/japanese-string-constants.rkt
+++ b/collects/string-constants/japanese-string-constants.rkt
@@ -135,7 +135,7 @@ please adhere to these guidelines:
  (tool-web-sites "ツールのウェブサイト")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "バグ報告を中止しますか？")
diff --git a/collects/string-constants/korean-string-constants.rkt b/collects/string-constants/korean-string-constants.rkt
index c64fc4f716..bcfe68d7b1 100644
--- a/collects/string-constants/korean-string-constants.rkt
+++ b/collects/string-constants/korean-string-constants.rkt
@@ -53,7 +53,7 @@
  (tool-web-sites "참고 사이트")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "오류 보고를 취소하시겠습니까?")
diff --git a/collects/string-constants/portuguese-string-constants.rkt b/collects/string-constants/portuguese-string-constants.rkt
index 4f031f5a6f..3fec300969 100644
--- a/collects/string-constants/portuguese-string-constants.rkt
+++ b/collects/string-constants/portuguese-string-constants.rkt
@@ -135,7 +135,7 @@ please adhere to these guidelines:
  (tool-web-sites "Sítios Web de Ferramentas")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "Como Usar o Scheme") ;; title of a book.
- (teachscheme!-homepage "AprenderScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Cancelar relatório de erro?")
diff --git a/collects/string-constants/russian-string-constants.rkt b/collects/string-constants/russian-string-constants.rkt
index 53d7358e17..af2c7e85a2 100644
--- a/collects/string-constants/russian-string-constants.rkt
+++ b/collects/string-constants/russian-string-constants.rkt
@@ -135,7 +135,7 @@ please adhere to these guidelines:
  (tool-web-sites "Web-сайты установленных инструментов")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "Как использовать Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Отменить отправку отчета об ошибках?")
diff --git a/collects/string-constants/simplified-chinese-string-constants.rkt b/collects/string-constants/simplified-chinese-string-constants.rkt
index 8d596a5541..461e59ede9 100644
--- a/collects/string-constants/simplified-chinese-string-constants.rkt
+++ b/collects/string-constants/simplified-chinese-string-constants.rkt
@@ -62,7 +62,7 @@
   (tool-web-sites "Tools网站")   ;; menu item title
   (plt-homepage "Racket")
   (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
   
   ;;; bug report form
   (cancel-bug-report? "取消程序错误报告？")
diff --git a/collects/string-constants/spanish-string-constants.rkt b/collects/string-constants/spanish-string-constants.rkt
index aad50daf90..d01d7790aa 100644
--- a/collects/string-constants/spanish-string-constants.rkt
+++ b/collects/string-constants/spanish-string-constants.rkt
@@ -43,7 +43,7 @@
  (tool-web-sites "Sitios de Web de Herramientas")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "Cómo Usar Scheme")
- (teachscheme!-homepage "TeachScheme!")
+ (pbd-homepage "Program by Design")
  
  ;;; bug report form
  (cancel-bug-report? "¿Cancelar el reporte de problemas?")
diff --git a/collects/string-constants/traditional-chinese-string-constants.rkt b/collects/string-constants/traditional-chinese-string-constants.rkt
index 4857df9e7f..b7ee2890e0 100644
--- a/collects/string-constants/traditional-chinese-string-constants.rkt
+++ b/collects/string-constants/traditional-chinese-string-constants.rkt
@@ -61,7 +61,7 @@
   (tool-web-sites "Tools网站")   ;; menu item title
   (plt-homepage "Racket")
   (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
   
   ;;; bug report form
   (cancel-bug-report? "取消程序错误报告？")
diff --git a/collects/string-constants/ukrainian-string-constants.rkt b/collects/string-constants/ukrainian-string-constants.rkt
index 811ae52585..18e616ed17 100644
--- a/collects/string-constants/ukrainian-string-constants.rkt
+++ b/collects/string-constants/ukrainian-string-constants.rkt
@@ -135,7 +135,7 @@ please adhere to these guidelines:
  (tool-web-sites "Web-сайти встановлених інструментів")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "Як використовувати Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")
 
  ;;; bug report form
  (cancel-bug-report? "Скасувати відправлення звіту про помилки?")