diff --git a/scheme/input-buffer.scm b/scheme/input-buffer.scm
index 3fbbc71..1ac283c 100644
--- a/scheme/input-buffer.scm
+++ b/scheme/input-buffer.scm
@@ -218,11 +218,9 @@
   (call-with-values 
       (lambda ()
 	(all-commands-seperated buffer))
-    (lambda (all-lines-seperated new-pos-fin-ln)
+    (lambda (all-lines-seperated pos-fin-ln)
       (let ((num-all-lines (length all-lines-seperated))
-	    (num-lines (buffer-num-lines buffer))
-	    (pos-fin-ln (buffer-pos-fin-ln buffer)))
-	(set! pos-fin-ln new-pos-fin-ln)
+	    (num-lines (buffer-num-lines buffer)))
 	(if (>= pos-fin-ln num-lines)
 	    ;;aktive Zeile ist die unterste
 	    (values (sublist all-lines-seperated