diff --git a/script/tei2korapxml b/script/tei2korapxml
index 16137ae..e276822 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -141,10 +141,11 @@
 # ~~~ variables ~~~
 #
 
-my $dir = '';                                        # text     directory (below $root_dir)
+# text directory (below $root_dir)
+my $dir = '';
 
-# '$text_id_esc' = escaped version of $text_id
-my ($text_id, $text_id_esc);
+# Escaped version of text id
+my $text_id_esc;
 
 # element from $tree_data
 my $e;
@@ -411,11 +412,10 @@
 
         # Remember dir and sigles
         $dir         = $header->dir;
-        $text_id     = $header->id;
         $text_id_esc = $header->id_esc;
 
         # log output for seeing progression
-        $log->notice("$0: text_id=$text_id");
+        $log->notice("$0: text_id=$text_id_esc");
 
         # Reset counter for text lines
         # (needed for whitespace handling)
@@ -524,7 +524,7 @@
       # in case this fails, check input
       if (($from - 1) > $pos) {
         die $log->fatal(
-          "text_id='$text_id', " .
+          "text_id='$text_id_esc', " .
             'processing of structures: ' .
             "from-value ($from) is 2 or more greater " .
             "than to-value ($pos) => please check. Aborting"