diff --git a/scsh/test/awk-test.scm b/scsh/test/awk-test.scm
index a56122c..bc6e02f 100644
--- a/scsh/test/awk-test.scm
+++ b/scsh/test/awk-test.scm
@@ -171,11 +171,10 @@
 	      ("paar" (set! read (cons 'first-clause read)))
 	      ((equal? line
 		       "expr-test zu prüfen:")
-	       (set! line (cons 'second-clause read)))
+	       (set! read (cons 'second-clause read)))
 	      ((> counter 5)
 	       (set! read (cons 'third-clause read)))
 	      ((+ "3")                                  
-;;              ^^^^^ makes problems here, but was ok in sre-expr-test  ;;FIXXX it
 	       (set! read (cons 'fourth-clause read)))))
        (make-string-input-port str))
       (equal? read