diff --git a/Makefile b/Makefile
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-VERSION = 3.4.4
+VERSION = 3.4.5
 
 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.4
+Version:             3.4.5
 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/HsShellScript/Args.chs b/src/HsShellScript/Args.chs
--- a/src/HsShellScript/Args.chs
+++ b/src/HsShellScript/Args.chs
@@ -605,8 +605,8 @@
         else 
            case (argdesc_long_args desc, argdesc_argargname desc) of
               ([], _)         -> ""
-              (sl, Just name) -> concat (intersperse "/" (map (\s -> "-" ++ s) sl)) ++ " " ++ name
-              (sl, Nothing)   -> concat (intersperse "/" (map (\s -> "-" ++ s) sl))
+              (sl, Just name) -> concat (intersperse "/" (map (\s -> "--" ++ s) sl)) ++ " " ++ name
+              (sl, Nothing)   -> concat (intersperse "/" (map (\s -> "--" ++ s) sl))
                   
 
 
diff --git a/test/args.chs b/test/args.chs
--- a/test/args.chs
+++ b/test/args.chs
@@ -23,6 +23,7 @@
 
 d_weg  =
    argdesc [ desc_short 'w'
+           , desc_long "weg"
            , desc_at_most_once
            , desc_argname "Teiltext"
            , desc_value_required
@@ -82,12 +83,12 @@
    seq args (return ())
 
    --anz d_weg
-   print (argname_long d_weg)
+   --print (argname_long d_weg)
 
    --let zll = make_usage_info [d_weg] 0 15 30 80
    --mapM_ print zll
 
-   --print_usage_info stdout "Header\n\n" [d_weg] --descs
+   print_usage_info stdout "Header\n\n" [d_weg] --descs
 
 
 
diff --git a/test/args.hs b/test/args.hs
--- a/test/args.hs
+++ b/test/args.hs
@@ -30,6 +30,7 @@
 
 d_weg  =
    argdesc [ desc_short 'w'
+           , desc_long "weg"
            , desc_at_most_once
            , desc_argname "Teiltext"
            , desc_value_required
@@ -89,13 +90,12 @@
    seq args (return ())
 
    --anz d_weg
-   outm "1"
-   print (argname_long d_weg)
+   --print (argname_long d_weg)
 
    --let zll = make_usage_info [d_weg] 0 15 30 80
    --mapM_ print zll
 
-   --print_usage_info stdout "Header\n\n" [d_weg] --descs
+   print_usage_info stdout "Header\n\n" [d_weg] --descs