diff --git a/collects/tests/drracket/hangman.rkt b/collects/tests/drracket/hangman.rkt
index 935c8dbe53..15e40a6d3a 100644
--- a/collects/tests/drracket/hangman.rkt
+++ b/collects/tests/drracket/hangman.rkt
@@ -8,7 +8,7 @@
    (define drs (wait-for-drracket-frame))
    (define defs (send drs get-definitions-text))
    (define rep (send drs get-interactions-text))
-   (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$"))
+   (set-language-level! (list #rx"Beginning Student$"))
    (run-one/sync
     (lambda ()
        (send defs load-file (collection-file-path "hangman1.rkt" "htdp" "tests"))))
diff --git a/collects/tests/drracket/language-test.rkt b/collects/tests/drracket/language-test.rkt
index 7bf0be20d1..1031ac4666 100644
--- a/collects/tests/drracket/language-test.rkt
+++ b/collects/tests/drracket/language-test.rkt
@@ -364,7 +364,7 @@ the settings above should match r5rs
 ;                  ;;;;;                                      
 
 (define (beginner)
-  (parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
+  (parameterize ([language (list #rx"Beginning Student(;|$)")])
     (check-top-of-repl)
     (generic-settings #t)
     (generic-output #f #f #f #f)
@@ -514,8 +514,7 @@ the settings above should match r5rs
 
 
 (define (beginner/abbrev)
-  (parameterize ([language (list "How to Design Programs" 
-                                 #rx"Beginning Student with List Abbreviations(;|$)")])
+  (parameterize ([language (list #rx"Beginning Student with List Abbreviations(;|$)")])
     (check-top-of-repl)
     
     (generic-settings #t)
@@ -665,7 +664,7 @@ the settings above should match r5rs
 
 
 (define (intermediate)
-  (parameterize ([language (list "How to Design Programs" #rx"Intermediate Student(;|$)")])
+  (parameterize ([language (list #rx"Intermediate Student(;|$)")])
     (check-top-of-repl)
     
     (generic-settings #t)
@@ -812,8 +811,7 @@ the settings above should match r5rs
 
 
 (define (intermediate/lambda)
-  (parameterize ([language (list "How to Design Programs" 
-                                 #rx"Intermediate Student with lambda(;|$)")])
+  (parameterize ([language (list #rx"Intermediate Student with lambda(;|$)")])
     (check-top-of-repl)
     
     (generic-settings #t)
@@ -955,7 +953,7 @@ the settings above should match r5rs
 
 
 (define (advanced)
-  (parameterize ([language (list "How to Design Programs" #rx"Advanced Student(;|$)")])
+  (parameterize ([language (list #rx"Advanced Student(;|$)")])
     (check-top-of-repl)
     
     (generic-settings #t)
diff --git a/collects/tests/drracket/sample-solutions-one-window.rkt b/collects/tests/drracket/sample-solutions-one-window.rkt
index 0741cf062f..b14ea744ec 100644
--- a/collects/tests/drracket/sample-solutions-one-window.rkt
+++ b/collects/tests/drracket/sample-solutions-one-window.rkt
@@ -13,10 +13,10 @@
   
   (define (section->language section)
     (cond
-      [(section . <= . 12) '("How to Design Programs" "Beginning Student")]
-      [(section . <= . 19) '("How to Design Programs" "Intermediate Student")]
-      [(section . <= . 29) '("How to Design Programs" "Intermediate Student with lambda")]
-      [else '("How to Design Programs" "Advanced Student")]))
+      [(section . <= . 12) '("Beginning Student")]
+      [(section . <= . 19) '("Intermediate Student")]
+      [(section . <= . 29) '("Intermediate Student with lambda")]
+      [else '("Advanced Student")]))
 
   (define default-toc-entry '(#f ()))
   
diff --git a/collects/tests/drracket/stepper-test.rkt b/collects/tests/drracket/stepper-test.rkt
index ea23516201..4ebb861f3d 100644
--- a/collects/tests/drracket/stepper-test.rkt
+++ b/collects/tests/drracket/stepper-test.rkt
@@ -32,7 +32,7 @@
     (run-fully-specified-tests)
     
     #|
-    (set-language-level! (list "How to Design Programs" "Beginning Student with List Abbreviations"))
+    (set-language-level! (list "Beginning Student with List Abbreviations"))
     (run-string-test "(define (f x) (* x 2))\n(+ 1 (f (+ 1 1)))")
     (run-string-test "(sqrt 2)")
     (run-string-test "(car)")
@@ -42,12 +42,12 @@
     )
  
   (define (run-fully-specified-tests)
-    (set-language-level! (list "How to Design Programs" "Beginning Student"))
+    (set-language-level! (list "Beginning Student"))
     (beginner-tests/no-list)
     (test-transcript '(cons 1 (cons 2 (list 3 4 5)))
                      '(cons 1 (cons 2 (cons 3 (cons 4 (cons 5 empty))))))
     
-    (set-language-level! (list "How to Design Programs" "Beginning Student with List Abbreviations"))
+    (set-language-level! (list "Beginning Student with List Abbreviations"))
     (beginner-tests/no-list)
     (test-transcript '(cons 1 (cons 2 (list 3 4 5)))
                      '(cons 1 (list 2 3 4 5))
diff --git a/collects/tests/drracket/teaching-lang-coverage.rkt b/collects/tests/drracket/teaching-lang-coverage.rkt
index 49fff7743e..19df1430c0 100644
--- a/collects/tests/drracket/teaching-lang-coverage.rkt
+++ b/collects/tests/drracket/teaching-lang-coverage.rkt
@@ -96,7 +96,7 @@
                                               (object-name this-lang)))])
            (unless same-last-time?
              (set! last-lang this-lang)
-             (set-language-level! (list #rx"How to Design Programs" this-lang))))
+             (set-language-level! (list this-lang))))
          
          (clear-definitions drr-frame)
          (insert-in-definitions drr-frame (test-program t))
diff --git a/collects/tests/drracket/teaching-lang-save-file.rkt b/collects/tests/drracket/teaching-lang-save-file.rkt
index bb182f232d..ca73cc9c13 100644
--- a/collects/tests/drracket/teaching-lang-save-file.rkt
+++ b/collects/tests/drracket/teaching-lang-save-file.rkt
@@ -16,7 +16,7 @@
      (let ([definitions-text (send drr-frame get-definitions-text)]
            [interactions-text (send drr-frame get-interactions-text)])
        
-       (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$"))
+       (set-language-level! (list #rx"Beginning Student$"))
        (clear-definitions drr-frame)
        (queue-callback/res
         (λ () 
diff --git a/collects/tests/drracket/teaching-lang-sharing-modules.rkt b/collects/tests/drracket/teaching-lang-sharing-modules.rkt
index 5cb312af7c..21e3ee0a77 100644
--- a/collects/tests/drracket/teaching-lang-sharing-modules.rkt
+++ b/collects/tests/drracket/teaching-lang-sharing-modules.rkt
@@ -36,7 +36,7 @@ Of course, other (similar) things can go wrong, too.
    (λ ()
      (putenv "PLTDRHTDPNOCOMPILED" "yes")
      (define drs-frame (wait-for-drracket-frame))
-     (set-language-level! '("How to Design Programs" "Beginning Student"))
+     (set-language-level! '("Beginning Student"))
      (clear-definitions drs-frame)
      (for ([exp (in-list things-to-try)])
        (insert-in-definitions drs-frame (format "~s\n" exp)))
diff --git a/collects/tests/drracket/teachpack.rkt b/collects/tests/drracket/teachpack.rkt
index c0a5f44d0e..559104d571 100644
--- a/collects/tests/drracket/teachpack.rkt
+++ b/collects/tests/drracket/teachpack.rkt
@@ -158,12 +158,12 @@
    "3"))
 
 (define (good-tests)
-  (set-language-level! '("How to Design Programs" "Beginning Student"))
+  (set-language-level! '("Beginning Student"))
   (do-execute drs-frame)
   (generic-tests))
 
 (define (bad-tests)
-  (set-language-level! '("How to Design Programs" "Beginning Student"))
+  (set-language-level! '("Beginning Student"))
   
   (test-bad/execute-teachpack
    "undefined-id"
@@ -218,7 +218,7 @@
                                   (directory-list dir)))
                       paths))]
          [teachpack-dir (normalize-path (collection-path "teachpack"))])
-    (set-language-level! '("How to Design Programs" "Advanced Student"))
+    (set-language-level! '("Advanced Student"))
     (do-execute drs-frame)
     (test-teachpacks (list (build-path teachpack-dir "2htdp")
                            (build-path teachpack-dir "htdp")))))
diff --git a/collects/tests/drracket/test-engine-test.rkt b/collects/tests/drracket/test-engine-test.rkt
index 0407f06f2e..20c74cc262 100644
--- a/collects/tests/drracket/test-engine-test.rkt
+++ b/collects/tests/drracket/test-engine-test.rkt
@@ -105,7 +105,7 @@
 ;                  ;;;;;                                      
 
 (define (beginner)
-  (parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")])
+  (parameterize ([language (list #rx"Beginning Student(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #f)))
 
@@ -127,8 +127,7 @@
 
 
 (define (beginner/abbrev)
-  (parameterize ([language (list "How to Design Programs" 
-                                 #rx"Beginning Student with List Abbreviations(;|$)")])
+  (parameterize ([language (list #rx"Beginning Student with List Abbreviations(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #f)))
 
@@ -150,7 +149,7 @@
 
 
 (define (intermediate)
-  (parameterize ([language (list "How to Design Programs" #rx"Intermediate Student(;|$)")])
+  (parameterize ([language (list #rx"Intermediate Student(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #f)))
 
@@ -172,8 +171,7 @@
 
 
 (define (intermediate/lambda)
-  (parameterize ([language (list "How to Design Programs" 
-                                 #rx"Intermediate Student with lambda(;|$)")])
+  (parameterize ([language (list #rx"Intermediate Student with lambda(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #f)))
 
@@ -196,32 +194,32 @@
 
 
 (define (advanced)
-  (parameterize ([language (list "How to Design Programs" #rx"Advanced Student(;|$)")])
+  (parameterize ([language (list #rx"Advanced Student(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #f)
     (common-signatures-*sl)))
 
 
 (define (DMdA-beginner)
-  (parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
+  (parameterize ([language (list #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #t)
     (common-signatures-DMdA)))
 
 (define (DMdA-vanilla)
-  (parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion(;|$)")])
+  (parameterize ([language (list #rx"Die Macht der Abstraktion(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #t)
     (common-signatures-DMdA)))
 
 (define (DMdA-assignments)
-  (parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion mit Zuweisungen(;|$)")])
+  (parameterize ([language (list #rx"Die Macht der Abstraktion mit Zuweisungen(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #t)
     (common-signatures-DMdA)))
 
 (define (DMdA-advanced)
-  (parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - fortgeschritten(;|$)")])
+  (parameterize ([language (list #rx"Die Macht der Abstraktion - fortgeschritten(;|$)")])
     (prepare-for-test-expression)
     (common-test-engine #t)
     (common-signatures-DMdA)))
@@ -487,13 +485,13 @@
 (define (test-disabling-tests)
   (define drs (wait-for-drracket-frame))
   
-  (parameterize ([language (list "How to Design Programs" #rx"Beginning Student(;|$)")]) 
+  (parameterize ([language (list #rx"Beginning Student(;|$)")]) 
     (prepare-for-test-expression)
     (test:menu-select "Racket" "Disable Tests")
     (test-expression "(check-expect 1 2)" "Tests disabled.")
     (test:menu-select "Racket" "Enable Tests"))
   
-  (parameterize ([language (list "DeinProgramm" #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
+  (parameterize ([language (list #rx"Die Macht der Abstraktion - Anfänger(;|$)")])
     (prepare-for-test-expression)
     (test:menu-select "Racket" "Disable Tests")
     (test-expression "(check-expect 1 2)" "Tests disabled.")