diff --git a/collects/meta/web/common/links.rkt b/collects/meta/web/common/links.rkt
index 5bb5ed731c..96c6ba666d 100644
--- a/collects/meta/web/common/links.rkt
+++ b/collects/meta/web/common/links.rkt
@@ -29,13 +29,13 @@
 ;; External links
 
 (define* -htdp
-  @make-link["http://www.htdp.org/"]{@i{How to Design Programs}})
+  @make-link["http://htdp.org/"]{@i{How to Design Programs}})
 
 (define* -redex
   @make-link["http://redex.plt-scheme.org/"]{Redex})
 
-(define* -teachscheme
-  @make-link["http://www.teach-scheme.org/"]{TeachScheme!})
+(define* -pbd
+  @make-link["http://programbydesign.org/"]{Program by Design})
 
 (define* -cookbook
   @make-link["http://schemecookbook.org/"]{Schematics Scheme Cookbook})
diff --git a/collects/meta/web/www/learning.rkt b/collects/meta/web/www/learning.rkt
index 42852f3f79..3e9ed876d1 100644
--- a/collects/meta/web/www/learning.rkt
+++ b/collects/meta/web/www/learning.rkt
@@ -14,7 +14,7 @@
       @text{@-plai — a textbook on programming languages.}]
     @parlist[
       @strong{Outreach}
-      @text{@-teachscheme — a workshop to train teachers using @-htdp in the
+      @text{@-pbd — a workshop to train teachers using @-htdp in the
         classroom.}
       @text{@-bootstrap — a curriculum for middle-school students.}]
     @(apply parlist @strong{PLT Publications}