bugfix

ca

@@ -2,12 +2,12 @@
 
 # ca* by Dirk Zimoch
 # $Source: /cvs/G/EPICS/App/scripts/ca,v $
-# $Date: 2009/11/12 14:29:13 $
+# $Date: 2009/11/12 14:35:03 $
 
 regsub -all {\$} {ca* by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/ca,v $
-$Revision: 1.15 $
-$Date: 2009/11/12 14:29:13 $} {} version
+$Revision: 1.16 $
+$Date: 2009/11/12 14:35:03 $} {} version
 
 set auto_path [concat $env(SLSBASE)/lib/tcl $auto_path]
 
@@ -88,11 +88,11 @@ proc formatval {channel {value {}} {sevr {}} {stat {}} {time {}}} {
     }
     if {$TYPE == "DBF_CHAR"} {
         foreach char $VAL {
-            append val [format "%c" $char]
+            append s [format "%c" $char]
         }
         set SIZE 1
         set TYPE DBF_STRING
-        set VAL $val
+        set VAL $s
     }
     if {[lsearch $flags -plain] != -1} {
         set formatted $VAL
@@ -121,7 +121,7 @@ proc formatval {channel {value {}} {sevr {}} {stat {}} {time {}}} {
                 }
             }
             if {$TYPE == "DBF_STRING" || $TYPE == "DBF_ENUM"} {
-                set val \"[string map {\" \\\" \\ \\\\ \a \\a \b \\b \c \\c \n \\n \r \\r \t \\t \v \\v} $val]\"
+                set val \"$val\"
             } else {
                 if {[lsearch $flags -hex] != -1} {
                     catch {