diff --git a/Makefile b/Makefile
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,4 @@
-# nächste Version:
-VERSION = 3.4.0
+VERSION = 3.4.1
 
 default :: lib
 
diff --git a/hsshellscript.cabal b/hsshellscript.cabal
--- a/hsshellscript.cabal
+++ b/hsshellscript.cabal
@@ -1,5 +1,5 @@
 Name:                hsshellscript
-Version:             3.4.0
+Version:             3.4.1
 Synopsis:            Haskell for Unix shell scripting tasks
 Description:         A Haskell-library for tasks which are usually done in
                      shell scripts. This includes parsing command line
diff --git a/src/cbits/hsshellscript.c b/src/cbits/hsshellscript.c
--- a/src/cbits/hsshellscript.c
+++ b/src/cbits/hsshellscript.c
@@ -133,20 +133,14 @@
   return old_flags;
 }
 
-int c_terminal_width_stdout(void)
+// Thanks to Jan-Benedict Glaw for this
+int c_terminal_width(int fd)
 {
+  int res;
   struct winsize size;
-  if (ioctl (STDOUT_FILENO, TIOCGWINSZ, &size) == -1)
-    return -1;
-  else 
-    return size.ws_col;
-}
 
-int c_terminal_width_stderr(void)
-{
-  struct winsize size;
-  if (ioctl (STDERR_FILENO, TIOCGWINSZ, &size) == -1)
-    return -1;
-  else 
-    return size.ws_col;
+  res = ioctl (fd, TIOCGWINSZ, &size);
+
+  if (res == -1) return -1;
+  else return size.ws_col;
 }
diff --git a/test/Makefile b/test/Makefile
--- a/test/Makefile
+++ b/test/Makefile
@@ -1,4 +1,3 @@
-VERSION=3.4.0
 CFLAGS=-XDeriveDataTypeable 
 
 PROG_HS  = $(notdir $(basename $(wildcard [_abcdefghijklmnopqrstuvwxyzäöü]*.hs)))
diff --git a/test/cteile.c b/test/cteile.c
--- a/test/cteile.c
+++ b/test/cteile.c
@@ -36,19 +36,3 @@
   printf("\", Länge = %d\n",len);
 }
 
-
-
-
-//----------------------------------------------------------------------------------------------------
-
-// Thanks to Jan-Benedict Glaw for this
-int c_terminal_width(int fd)
-{
-  int res;
-  struct winsize size;
-
-  res = ioctl (fd, TIOCGWINSZ, &size);
-
-  if (res == -1) return -1;
-  else return size.ws_col;
-}