diff --git a/collects/deinprogramm/DMdA.rkt b/collects/deinprogramm/DMdA.rkt
index d9382c29bf..949fef7a4c 100644
--- a/collects/deinprogramm/DMdA.rkt
+++ b/collects/deinprogramm/DMdA.rkt
@@ -356,7 +356,9 @@
   (for-each ((%a -> %b) (list %a) -> unspecific)
 	    "Prozedur von vorn nach hinten auf alle Elemente einer Liste anwenden")
   (apply (procedure (list %a) -> %b)
-	 "Prozedur auf Liste ihrer Argumente anwenden")))
+	 "Prozedur auf Liste ihrer Argumente anwenden")
+  (read (-> any)
+	"Externe Repräsentation eines Werts in der REPL einlesen und den zugehörigen Wert liefern")))
 
 (define (make-pair f r)
   (when (and (not (null? r))