diff --git a/scsh/test/read-delimited-strings.scm b/scsh/test/read-delimited-strings.scm
index d178973..7d76f28 100644
--- a/scsh/test/read-delimited-strings.scm
+++ b/scsh/test/read-delimited-strings.scm
@@ -54,7 +54,7 @@
 		    (read-line in-port 'concat))))
      (make-string-input-port "zeile 1\nzeile 2\nzeile 3\004")))) 
 
-(add-test! 'read-line-split-test 'reading-delimited-strings ;; XXX warum #\newline und nicht "\n"???
+(add-test! 'read-line-split-test 'reading-delimited-strings
   (lambda ()
     ((lambda (in-port)
        (and (call-with-values (lambda () (read-line in-port 'split))
@@ -65,7 +65,7 @@
 				 (equal? b #\newline))))
 	    (call-with-values (lambda () (read-line in-port 'split))
 	      (lambda (a b) (and (equal? a "zeile 3")
-				 (equal? b "\004"))))))   ;; XXX geht nicht mit "\004" und nicht mit (ascii->char 4)!
+				 (eof-object? b))))))
      (make-string-input-port "zeile 1\nzeile 2\nzeile 3\004")))) 
 
 (add-test! 'read-paragraph-test 'reading-delimited-strings
@@ -344,26 +344,26 @@
 
 ;; ====================================================================================================
 
-(add-test! 'skip-char-set-wiht-charset-test 'read-delimited-strings
+(add-test! 'skip-char-set-with-charset-test 'read-delimited-strings
   (lambda ()
     (= 6
        (skip-char-set (list->char-set (list #\a #\b #\c))
 		      (make-string-input-port "abccbaxxx")))))
 
 
-(add-test! 'skip-char-set-wiht-string-test 'read-delimited-strings
+(add-test! 'skip-char-set-with-string-test 'read-delimited-strings
   (lambda ()
     (= 6
        (skip-char-set "abc"
 		      (make-string-input-port "abccbaxxx")))))
 
-(add-test! 'skip-char-set-wiht-character-test 'read-delimited-strings
+(add-test! 'skip-char-set-with-character-test 'read-delimited-strings
   (lambda ()
     (= 6
        (skip-char-set #\a
 		      (make-string-input-port "aaaaaaxxx")))))
 
-(add-test! 'skip-char-set-wiht-character-predicate-test 'read-delimited-strings
+(add-test! 'skip-char-set-with-character-predicate-test 'read-delimited-strings
   (lambda ()
     (= 6
        (skip-char-set char-digit?