diff --git a/ca b/ca
index b7adde3..6a08a01 100755
--- a/ca
+++ b/ca
@@ -1,6 +1,10 @@
-#!/usr/bin/tclsh --
-# $Id: ca,v 1.5 2002/12/17 17:24:47 zimoch Exp $
+#!/usr/bin/tclsh
+# $Id: ca,v 1.6 2002/12/17 17:34:49 zimoch Exp $
+# $Source: /cvs/G/EPICS/App/scripts/ca,v $
 # $Log: ca,v $
+# Revision 1.6  2002/12/17 17:34:49  zimoch
+# debugged
+#
 # Revision 1.5  2002/12/17 17:24:47  zimoch
 # help added
 #
@@ -9,8 +13,6 @@
 #
 #
 
-HEADER="$Header: /cvs/G/EPICS/App/scripts/ca,v 1.5 2002/12/17 17:24:47 zimoch Exp $"
-
 set auto_path [concat $env(SLSBASE)/lib/tcl $auto_path]
 package require Epics
 
@@ -29,31 +31,34 @@ while {[string match "-*" [lindex $argv 0]]} {
     set argv [lrange $argv 1 end]
 }
 
-if {[lsearch $flags -regexp -- {-(v(er(sion)?)?)}]} {
-    puts {\$Source: /cvs/G/EPICS/App/scripts/ca,v $}
-    puts {\$Revision: 1.5 $}
-    puts {\$Date: 2002/12/17 17:24:47 $}
+if {[lsearch -regexp $flags {-(v(er(sion)?)?)}] != -1} {
+    puts "ca* by Dirk Zimoch"
+    puts [string trim {$Source: /cvs/G/EPICS/App/scripts/ca,v $} $]
+    puts [string trim {$Revision: 1.6 $} $]
+    puts [string trim {$Date: 2002/12/17 17:34:49 $} $]
     exit
 }
 
-if {[lsearch $flags -regexp -- {-(\?)|(h(elp)?)}] || [llength $argv] == 0} {
-    puts "usage: caget [flags] <channel> [<channel> ...]"
-    puts "       caput [flags] <channel> <value> [<channel> <value> ...]"
-    puts "       cainfo [flags] <channel> [<channel> ...]"
-    puts "       camon [flags] <channel> [<channel> ...]"
-    puts "       cado [flags] <channel> [<channel> ...]"
-    puts "       cagets [flags] <channel> [<channel> ...]\n"
-    puts "caget reads and formats values from channels (arrays too)"
-    puts "caput writes, waits until processing finishes and reads back"
-    puts "cainfo reads additional information"
-    puts "camon starts monitors (terminate with CTRL-C)"
-    puts "cado writes 1 and does not wait"
-    puts "cagets writes 1 to .PROC and reads after processing has finished\n"
-    puts "accepted flags:"
-    puts "-date       add record execution date"     
-    puts "-localdate  add host date" 
-    puts "-time       add record execution time"     
-    puts "-localtime  add host time"
+if {[lsearch -regexp $flags {-(\?)|(h(elp)?)}] != -1 || [llength $argv] == 0} {
+    puts {usage: caget [flags] <channel> [<channel> ...]}
+    puts {       caput [flags] <channel> <value> [<channel> <value> ...]}
+    puts {       cainfo [flags] <channel> [<channel> ...]}
+    puts {       camon [flags] <channel> [<channel> ...]}
+    puts {       cado [flags] <channel> [<channel> ...]}
+    puts {       cagets [flags] <channel> [<channel> ...]
+         }
+    puts {caget reads and formats values from channels (arrays too)}
+    puts {caput writes, waits until processing finishes and reads back}
+    puts {cainfo reads additional information}
+    puts {camon starts monitors (terminate with CTRL-C)}
+    puts {cado writes 1 and does not wait}
+    puts {cagets writes 1 to .PROC and reads after processing has finished
+         }
+    puts {accepted flags:}
+    puts {-date       add record execution date}     
+    puts {-localdate  add host date} 
+    puts {-time       add record execution time}     
+    puts {-localtime  add host time}
     exit
 }