From 8e0dc29c1d40b2432ccb4885f88c9437b6503e2f Mon Sep 17 00:00:00 2001
From: Mike Sperber <sperber@deinprogramm.de>
Date: Wed, 4 Sep 2013 20:21:24 +0200
Subject: [PATCH] Follow 90e9e5cb30d3589a584f4d365c408484da9bdbdd for DMdA
 languages.

Unbreak the "Clear XXX teachpack" menu.
---
 pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt b/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt
index af0f6c52bb..b8b9a13bdb 100644
--- a/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt
+++ b/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt
@@ -819,7 +819,7 @@
                            (begin
                              (message-box (string-constant drscheme)
                                           (format (string-constant already-added-teachpack)
-                                                  (cadr teachpack)))
+                                                  (tp-require->str teachpack)))
                              settings)
                            
                            (let ([new-tps (append old-tps (list teachpack))])
@@ -836,7 +836,7 @@
                               new-tps))))
                      settings)))
              (lambda (settings name) 
-               (let ([new-tps (filter (lambda (x) (not (equal? (cadr x) name)))
+               (let ([new-tps (filter (lambda (x) (not (equal? (tp-require->str x) name)))
                                       (deinprogramm-lang-settings-teachpacks settings))])
                  (preferences:set 'drscheme:deinprogramm:last-set-teachpacks new-tps)
                  (make-deinprogramm-lang-settings