diff --git a/collects/deinprogramm/DMdA.rkt b/collects/deinprogramm/DMdA.rkt
index c8a524d9b4..c36ad846f6 100644
--- a/collects/deinprogramm/DMdA.rkt
+++ b/collects/deinprogramm/DMdA.rkt
@@ -429,7 +429,15 @@
       ((empty? lis) unit)
       ((pair? lis) 
        (combine (first lis)
-                (fold unit combine (rest lis)))))))
+                (fold unit combine (rest lis))))
+      (else
+       (raise
+	(make-exn:fail:contract
+	 (string->immutable-string
+	  (format "Argument zu fold keine Liste, sondern ~e; andere Argumente: ~e ~e"
+		  lis
+		  unit combine))
+	 (current-continuation-marks)))))))
 
 ;; This is copied from collects/lang/private/beginner-funs.ss
 ;; Test-suite support (require is really an effect